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PREFAZIONE 

Ho raccolto le idee e il materiale per questo libro durante il mio insegnamento di 
ingegneria. Negli ultimi 14 anni il linguaggio che insegnavo nelle mie classi è cam¬ 
biato da FORTRAN a BASIC e, infine, a quello che forse è il più adatto per gli stu¬ 
denti, il PASCAL. 

Tutti I programmi in PASCAL di questo libro sono stati sviluppati su un microcal¬ 
colatore Z-80 con sistema operativo CP/M versione Lifeboat 2.2. I programmi sor¬ 
gente sono stati scritti sotto Text Editor Word-Master MicroPro, e compilati con il 
PASCAL/M. La maggior parte dei programmi girano anche sotto altri compilatori Pa¬ 
scal, come la versione CP/M del Pascal/MT+, Pascal/Z, Pascal JRT, e un compila¬ 
tore Pascal del Dee-20. 

Il manoscritto è stato prodotto con il MicroPro’s Wordstar, sullo stesso calcolato¬ 
re Z-80, e i programmi sorgente in Pascal vi sono stati inseriti direttamente dai file 
su cui erano registrati. Le stampe eseguite con il calcolatore, che compaiono nelle 
figure, sono anch'esse state inserite magneticamente, modificando il sistema ope¬ 
rativo CPM in modo che l’uscita della stampante venisse scritta in un blocco di me¬ 
moria. La copia finale del manoscritto è stata consegnata alla SYBEX in una forma 
compatibile con il fotocompositore; quindi non è stato necessario ribattere nè il ma¬ 
noscritto nè i programmi sorgente. 

Sono grato del contributo e dei suggerimenti di Rudolph e Douglas Hergert, e vor¬ 
rei anche ringraziare Ashok Singh che ha rivisto il manoscritto, con particolare at¬ 
tenzione alle espressioni matematiche. 


ALAN R. MILLER 




INTRODUZIONE 

L'obiettivo di questo libro è duplice: aiutare il lettore a perfezionarsi nell’uso del 
Pascal, e insieme costruire una libreria di programmi per risolvere i problemi che si 
incontrano più frequentemente nel campo scientifico e ingegneristico. 

I programmi di questo libro si riveleranno particolarmente utili per gli esperti della 
materia, e possono essere usati in un corso di ingegneria di livello senior o junior. Il 
lettore deve avere una conoscenza pratica di un linguaggio come il Pascal, il FOR¬ 
TRAN o il BASIC e possibilmente la conoscenza delle operazioni sui vettori e dei 
calcolo differenziale e integrale. 

Le caratteristiche del Pascal consentono un tipo di programmazione chiaro ed e- 
legante; due di queste sono particolarmente comode nei programmi scientifici: i no¬ 
mi lunghi per le variabili e la struttura a blocchi. Quando si usano identificatori come 
SOMMA _ X_ QUADRO e NESSUN _ CAMBIAMENTO invece di nomi brevi e meno 
significativi, il codice sorgente risulta più facile da capire. Il Pascal ha inoltre una 
vasta gamma di istruzioni iterative, molte più di quante ce ne siano in genere in 
BASIC e FORTRAN. L’istruzione 

FOR I : = 1 TO N DO 


corrisponde al ciclo FOR...NEXT del BASIC e DO...CONTINUE del FORTRAN; in Pa¬ 
scal esistono altre costruzioni di tipo iterativo, come WHILE...DO e REPEAT...UN- 
TIL. 

Le caratteristiche fondamentali del Pascal sono riassunte nel “Pascal User Ma- 
nual and Report", di Jensen e Wirth (1); ulteriori dettagli si trovano in "Introduction 
to Pascal”, di Zaks (2). D’altra parte, non tutte le specifiche del Pascal sono previ¬ 
ste nei compilatori reali; per esempio, la maggior parte dei compilatori Pascal non 
consente che i nomi delle procedure e delle funzioni siano usati come parametri di 
altre procedure. (Questo problema è affrontato nel Capitolo 8 sotto il titolo "Chiama¬ 
te alle procedure”). 

(1) Kathleen Jensen e Niklans Wirth, Pascal User Manual and Report, Seconda Edizione 
(New York, Heidelberg, e Berlino: Springer - Verlag, 1974). 

(2) Rodnay Zaks, Introduction to Pascal, Lucludring UCSD Pascal (Berkeley: Sybex, 1980). 

Invece, diverse specifiche particolarmente utili, che mancano nella definizione o- 
riginale del Pascal, sono state aggiunte nei compilatori in commercio, purtroppo non 
in modo uniforme; una di queste è il tipo di stringa dinamica; un’altra il generatore di 
numeri casuali, descritto nel Capitolo 2. 
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In questo libro talvolta vengono usate costruzioni comuni ad altri linguaggi evoluti, 
come il FORTRAN, il BASIC e l'ALGOL, al posto di quelle più eleganti del Pascal; ad 
esempio, si usano preferibilmente le matrici al posto dei record. Perciò gli algoritmi 
presentati nel testo, possono essere facilmente convertiti in altri linguaggi. 

Chi è interessato soprattutto ai programmi di Pascal, non avrà problemi a trovarli; 
i paragrafi che contengono programmi, procedure e funzioni sono segnalati chiara¬ 
mente. D'altra parte questo libro è fatto per essere letto dall'inizio alla fine; ogni ca¬ 
pitolo affronta e sviluppa le conoscenze che serviranno poi nei capitoli successivi. 
Gli algoritmi matematici di ogni programma sono descritti sistematicamente prima 
di implementare il programma stesso, e per quasi tutti i programmi viene fornito un 
esempio dei risultati prodotti. Riassumiamo di seguito, brevemente, il contenuto dei 
singoli capitoli: 

CAPITOLO 1 : Valutazione di un compilatore Pascal, mette in evidenza i punti salienti 
di alcuni compilatori Pascal in commercio, e fornisce dei programmi per provare 
qualsiasi compilatore Pascal; i risultati di questi test saranno poi usati per scegliere 
costanti e procedure diverse nei capitoli successivi. Contiene anche una presenta¬ 
zione delle funzioni logaritmica, esponenziale e trigonometriche. 

CAPITOLO 2: Media e deviazione standard, presenta alcuni classici algoritmi di sta¬ 
tistica e un programma che li implementa; inoltre fornisce le procedure per genera¬ 
re e provare la distribuzione uniforme e quella Gaussiana dei numeri casuali. 

CAPITOLO 3: Operazioni su vettori e matrici, presenta le operazioni aritmetiche su 
vettori e matrici, il prodotto scalare, il prodotto vettoriale, il prodotto tra matrici, e 
l’inversione di matrici. Contiene due importanti programmi, uno per eseguire la mol¬ 
tiplicazione tra matrici e uno per calcolare i determinanti. 

CAPITOLO 4: Risoluzione di sistemi di equazioni lineari, presenta dei programmi 
che applicano la regola di Cramer il metodo di eliminazione di Gauss, il metodo di 
Gauss Jordan, il metodo di Gauss Seidel, alla risoluzione di sistemi di equazioni li¬ 
neari. Viene affrontato il problema di sistemi mal condizionati con un programma 
che genera le matrici di Hilbert, ed è sviluppato un programma che risolve le equa¬ 
zioni a coefficienti complessi. 

CAPITOLO 5: Programma di interpolazione di una curva, è il primo di una serie di 
capitoli suM’interpolazione di curve; presenta un programma di interpolazione linea¬ 
re con i minimi quadrati, insieme con una buona illustrazione della tecnica di pro¬ 
grammazione top-down. Il programma comprende procedure per simulare dati, 
stampare grafici, calcolare i valori della curva interpolata e fornire il coefficiente di 
correlazione. 

CAPITOLO 6: Ordinamento, descrive e confronta diverse routine di ordinamento in 
Pascal, con due ordinamenti a bolle, un ordinamento di Shell, un ordinamento velo- 


XVI 



ce ricorsivo e uno non ricorsivo. Viene inserita una routine di ordinamento nel pro¬ 
gramma di interpolazione del Capitolo 5, per metterlo in grado di trattare dati reali 
sperimentali. 

CAPITOLO 7: Interpolazione di una curva, estende il programma di interpolazione al 
caso più generale di equazioni polinomiali e risolve tre casi particolari: equazione 
della capacità termica, equazione della pressione del vapore e equazione di stato 
del vapore surriscaldato. 

CAPITOLO 8: Risoluzione di equazioni con il metodo di Newton, presenta una serie 
di programmi che tanno uso del metodo di Newton per trovare.le radici di un'equa¬ 
zione. Questa tecnica verrà usata in seguito nel Capitolo 10 per l’interpolazione non 
lineare. 

CAPITOLO 9: Integrazione numerica, sviluppa i programmi per tre diversi metodi di 
integrazione, la regola trapezoidale, la regola di Simpson, e il metodo di Romberg; 
viene anche discussa la tecnica di correzione finale dell’errore. La regola di Sim¬ 
pson sarà usata nel Capitolo 11 per calcolare la Gaussiana dell’errore. 

CAPITOLO 10: Equazioni non lineari di interpolazione di curve, discute l’algoritmo di 
interpolazione per la funzione razionale ed esponenziale; vengono dati due esempi, 
il fattore di Clausing e l’equazione di diffusione. 

CAPITOLO 11; Applicazioni avanzate: la curva Normale, la funzione di errore Gaus¬ 
siana, la funzione Gamma e la funzione di Bessel, affronta diversi e complessi pro¬ 
blemi relativi alla programmazione di applicazioni matematiche. Riassume e appro¬ 
fondisce alcuni dei concetti presentati nei capitoli precedenti. 

Per il lettore che affronta il Pascal per la prima volta, c'è in appendice, un riepilo¬ 
go della sintassi, delle funzioni standard e delle parole riservate di Pascal. Ci augu¬ 
riamo per altro che gli obiettivi didattici di questo libro si raggiungano attraverso un 
accurato studio dei programmi. 
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CAPITOLO 1 


VALUTAZIONE 

DI UN COMPILATORE PASCAL 


INTRODUZIONE 

Per capire i risultati di un programma in Pascal occorre conoscere bene i limiti del 
compilatore che usiamo. Questo è particolarmente vero per i programmi di applica¬ 
zioni scientifiche, come quelli presentati in questo libro. In questo primo capitolo 
presenteremo alcuni strumenti per valutare la precisione e il campo di applicazione 
di un compilatore Pascal; in effetti gli esempi che verranno fatti sono ricavati da al¬ 
cuni compilatori Pascal disponibili in commercio. 

Nelle nostre valutazioni, considereremo un certo numero di funzioni di Pascal, lo¬ 
garitmiche, esponenziali e trigonometriche, e tramite queste scopriremo alcune ca¬ 
renze dei compilatori reali. Scopriremo anche il modo per provare le funzioni fornite 
dai tipici compilatori Pascal, e per realizzarne altre generalmente non disponibili. 


PRECISAZIONE E CAMPO DI APPLICAZIONE 
DELLE OPERAZIONI IN FLOATING-POINT 

La corretta esecuzione di molti programmi di questo libro dipende dalla precisio¬ 
ne e dal campo di applicazione delle operazioni in floating-point in Pascal. Se, per 
esempio, in un programma, un algoritmo ha fine quando il valore di una variabi¬ 
le diventa inferiore ad una certa tolleranza, la formula che rappresenta questa si¬ 
tuazione è 

TERNI < TOL * SUM 
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dove TERM contiene il valore della variabile, SUM è il totale e TOL è un numero pic¬ 
colo a piacere, che prende il nome di tolleranza. 

È importante che il valore scelto per la tolleranza sia compatibile con la precisio¬ 
ne delle operazioni in floating-point, altrimenti la sommatoria non avrà mai termine. 
Supponiamo per esempio che si raggiunga una precisione di sei cifre significative; la 
tolleranza dovrà avere un valore maggiore di IO -6 . 

Un altro problema è l'intervallo consentito per l’esponente. In genere le operazio¬ 
ni floating-point su numeri binari raggiungono 32 bit di precisione; sui numeri in BCD 
raggiungono una precisione maggiore. 

Nel Paragrafo seguente presenteremo un programma che prova la precisione e il 
campo di applicazione di un compilatore Pascal; studieremo l’uscita di diversi com¬ 
pilatori per determinarne la precisione sia nella mantissa che nell'esponente. 


PROGRAMMA PASCAL: 

UN TEST SULLE OPERAZIONI IN FLOATING POINT 

Il programma della figura 1.1 può essere usato per determinare la precisione e il 
campo di applicazione di un compilatore Pascal. Scrivetelo ed eseguitelo. Il valore i- 
niziale di X si ottiene dividendo IO -4 per 3; poi vengono calcolati valori sempre più 
piccoli di X e visualizzati sulla console. Ogni valore si ottiene dal prodotto di 0.1 per il 
valore precedente. Il procedimento continua fino a quando sono stati stampati 40 
valori, o un errore nelle operazioni in floating-point interrompe il programma. 

Usiamo ora questo programma per provare tre diversi compilatori. 

Tre esecuzioni del programma: Un confronto 

La mantissa iniziale è 1/3, numero periodico che non può essere rappresentato e- 
sattamente in floating-point. Le successive moltiplicazioni mostreranno un aumento 
dell'errore di arrotondamento. Un numero binario floating-point di 32 bit, in genere, 
usa tre byte per la mantissa e uno per l’esponente. In questo modo raggiunge sei o 
sette cifre significative di precisione, e un intervallo di valori compresi tra 10 +38 e 
IO -38 . Il risultato si presenterà come in figura 1.2. Nel primo caso un errore in una 
operazione floating-point interrompe il programma quando la variabile assume un 
valore al limite dell’intervallo; la precisione della mantissa in quel momento è di cir¬ 
ca cinque cifre significative; l’effetto dell’errore di arrotondamento è visibile nelle ci¬ 
fre meno significative. 

Consideriamo ora l'uscita (figura 1.3) di un diverso compilatore Pascal, che usa 
ancora 32 bit per i numeri floating-point. In questo caso la mantissa mostra una pre¬ 
cisione un po’ minore, ma, cosa più importante, l'intervallo è solo da IO -18 a 10 +18 
Inoltre, l'under-flow che si verifica in un'operazione floating-point non interrompe il 
programma, e quindi produce un risultato privo di significato. 


2 



PROGRAM TEST(OUTPUT); 

(# test sul range dei numeri floating point *) 

VAR 

I : INTEGER; 

X : REAL; 

BEGIN 

WRITELN; 

X := 1.0E-4/3.0; 

FOR I : = 1 TO 40 DO 
BEGIN 

WRITEf x =', X); 

X : = 0.1 * X; 

WRITELN(' x =', X); 

X : = 0.1 * X 

END 

END. 


Figura 1.1 — Un test per operazioni floating-point. 


X = 

3.33333E-5 

X 

_ 

3.33333E-6 

X = 

3.33333E-7 

X 

= 

3.33333E-8 

X = 

3.33333E-9 

X 

= 

3.33333E-10 

X = 

3.33333E-11 

X 

= 

3.33333E-12 

X = 

3.33333E-13 

X 

= 

3.33333E-14 

X - 

3.33333E-15 

X 

= 

3.33333E-16 

X = 

3.33333E-17 

X 

= 

3.33333E-18 

X = 

3.33333E-19 

X 

= 

3.33333E-20 

X = 

3.33333E-21 

X 

= 

3.33333E-22 

X = 

3.33333E-23 

X 

= 

3.33333E-24 

X = 

3.33333E-25 

X 

= 

3.33333E-26 

X = 

3.33333E-27 

X 

= 

3.33334E-28 

X = 

3.33334E-29 

X 

= 

3.33334E-30 

X = 

3.33334E-31 

X 

= 

3.33334E-32 

X - 

3.33334E-33 

X 

= 

3.33334E-34 

X = 

3.33334E-35 

X 

= 

3.33334E-36 

X = 

3.33334E-37 

X 

= 

3.33334E-38 

F Loating point 

error 

(messaggio dì errore dal compilatore) 


Figura 1.2 — Test di precisione: primo compilatore. 
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* = .3333334E-04 
x = .3333332E-06 
x = .3333330E-08 
x = .3333328E-10 
x = .3333327E-12 
x = .3333325E-14 
x = .3333323E-16 
x = .3333323E-18 
x = .1229780E+19 
x = .1134271E+17 


x = .3333333E-05 
x = .3333330E-07 
x = .3333329^-09 
x * .3333327E-11 
x = .3333325E-13 
x = .3333325E-15 
x = .3333323E-17 
x = .0000000E-18 
x = .1134271E+18 
x = .1134271E+16 


Figura 1.3 — Test di precisione: secondo compilatore. 


Nella figura 1.4 c'è l’uscita prodotta da un terzo compilatore Pascal che usa 64 bit 
e numeri in BCD; la mantissa ha 14 cifre di precisione e l'intervallo è 10 +63 — 10^ 63 . 
Notate che anche in questo caso, come in quello precedente, un errore di un’opera¬ 
zione in floating - point non interrompe il programma. 

Adesso vedremo una carenza più interessante, comune a molti compilatori, che 
limita l’intervallo dei valori per cui si possono calcolare funzioni SI N e COS, e appro¬ 
fondiremo questo argomento. 


FUNZIONI PASCAL SIN E COS 

Quando l’argomento delle funzioni SIN e COS si avvicina a zero, può presentarsi 
un problema: quando l’ampiezza dell’argomento è minore di IO -8 , il SIN dovrebbe 
restituire un valore pari aM'argomento, e il COS l’unità. Invece, molti compilatori Pa¬ 
scal in commercio commettono il seguente errore: l'argomento viene elevato al qua¬ 
drato prima dì eseguire il test sull’intervallo; questo causa un underflow e i risultati 
prodotti sono senza significato. 

Nella prossima sezione presenteremo un programma che studia questo problema 
e proveremo due compilatori. 
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x = +0.33333333333333E-04 
x = +0.33333333333333E-06 
x = +0.33333333333333E-08 
x = +0.33333333333333E-10 
x = +0.33333333333333E-12 
x = +0.33333333333333E-14 
x = +0.33333333333333E-16 
x = +0.33333333333333E-18 
x = +0.33333333333333E-20 
x = +0.33333333333333E-22 
x = +0.33333333333333E-24 
x = +0.33333333333333E-26 
x = +0.33333333333333E-28 
x = +0.33333333333333E-30 
x = +0.33333333333333E-32 
x = +0.33333333333333E-34 
x = +0.33333333333333E-36 
x = +0.33333333333333E-38 
x = +0.33333333333333E-40 
x = +0.33333333333333E-42 
x = +0.33333333333333E-44 
x = +0.33333333333333E-46 
x = +0.33333333333333E-48 
x = +0.33333333333333E-50 
x = +0.33333333333333E-52 
x = +0.33333333333333E-54 
x = +0.33333333333333E-56 
x = +0.33333333333333E-58 
x = +0.33333333333333E-60 
x = +0.33333333333333E-62 
x = +0.33333333333333E+00 
x = -0.33333333333333E +62 


x = +0.33333333333333E-05 
x = +0.33333333333333E-07 
x = +0.33333333333333E-09 
x = +0.33333333333333E-11 
x = +0.33333333333333E-13 
x = +0.33333333333333E-15 
x = +0.33333333333333E-17 
x = +0.33333333333333E-19 
x = +0.33333333333333E-21 
x = +0.33333333333333E-23 
x = +0.33333333333333E-25 
x = +0.33333333333333E-27 
x = +0.33333333333333E-29 
x = +0.33333333333333E-31 
x = +0.33333333333333E-33 
x = +0.33333333333333E-35 
x = +0.33333333333333E-37 
x = +0.33333333333333E-39 
x = +0.33333333333333E-41 
x = +0.33333333333333E-43 
x = +0.33333333333333 E-45 
x = +0.33333333333333E-47 
x = +0.33333333333333E-49 
x = +0.33333333333333E-51 
x = +0.33333333333333E-53 
x = +0.33333333333333E-55 
x = +0.33333333333333E-57 
x = +0.33333333333333E-59 
x = +0.33333333333333E-61 
x = +0.33333333333333E-63 
x = -0.33333333333333E+63 
x = -0.33333333333333E+61 


Figura 1.4 — Test di precisione: terzo compilatore. 


PROGRAMMA PASCAL: PROVA DELLA FUNZIONE SIN 

Il programma della figura 1.5 può essere usato per provare la funzione SIN del 
vostro Pascal: scrivetelo ed eseguitelo. 

Prova della funzione SIN: due Compilatori 

Se la vostra funzione SIN tratta correttamente i piccoli numeri, dovrebbe restitui¬ 
re valori significativi in tutto l’intervallo delle operazioni in floating-point; quindi l'un- 
derflow dovrebbe capitare nello stesso momento del test precedente. Nella figura 
1.6 i limiti dell'intervallo, sia per le operazioni floating-point che per la funzione SIN 
sono 3.3 x IO -18 . 
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PROGRAM TSIN(OUTPUT); 

(* test sul range di sin *) 

VAR 

I : INTEGER; 

X : REAL; 

BEGIN 

X : = 1,0E —4/0.3; 

FOR I : = 1 TO 40 DO 
BEGIN 

WRITELN(' x =', X, sin =', SIN(X)); 
X : = 0.1 * X 

END 

END. 


Figura 1.5 — Prova della funzione SIN. 


x - 

3.333333E-04, 

sin 


3.333329E-04 

X = 

3.333332E-05, 

s i n 

= 

3.333328E-05 

X = 

3.333332E-06, 

s i n 

= 

3.333328E-06 

X = 

3.333332E-07, 

sin 

= 

3.333328E-07 

X = 

3.333331E-08, 

s i n 

= 

3.333327E-08 

x - 

3.333330E-09, 

s i n 

= 

3.333326E-09 

X = 

3.333330E-10, 

sin 

= 

3.333326E-10 

X = 

3.333329E-11, 

sin 

= 

3.333325E-11 

X = 

3.333328E-12, 

sin 

= 

3.333324E-12 

X = 

3.333328E-13, 

sin 

= 

3.333324E-1 3 

X = 

3.333328E-14, 

sin 

= 

3.333323E-14 

X = 

3.333327E-15, 

sin 

= 

3.333322E-15 

X = 

3.333327E-16, 

sin 

= 

3.333322E-16 

X = 

3.333326E-17, 

s i n 

= 

3.333322E-17 

X = 

3.333326E-18, 

s i n 

= 

3.333322E-18 

Multiply overflow 

(messaggio di errore dal compilatore) 


Figura 1.6 — Prova della funzione SIN: primo compilatore. 
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Alcuni compilatori, nell'implementare la funzione SIN, eseguono il quadrato del¬ 
l'argomento prima di effettuare un controllo sull'intervallo; in questo caso l'under- 
flow si avrà molto prima. Nella figura 1.7 i limiti dell'intervallo sono 10 +18 e IO -18 , ma 
si ha underflow durante il calcolo della funzione SIN quando l'argomento diventa mi¬ 
nore di IO" 9 . 


x = .3333335E-03, 
x = .3333334E-04, 
x = .3333334E-05, 
x = .333333JE-06, 
x = .3333331E-07, 
x = .33333316-08, 
x = .3333330E-09, 
x = .3333329E-10, 
x = .3333328E-11, 


Sin = .3333323E-03 
sin = .3333321E-04 
sin = .3333321E-05 
sin = .3333320E-06 
sin = .3333319E-07 
sin = .3333319E-08 
sin = .3333318E-09 
sin =-.21003636+07 
sin =-.2100361E + 04 


Figura 1.7 — Prova della funzione SIN: secondo compilatore. 


ALTRE FUNZIONI PASCAL 

In questa sezione studieremo dei programmi progettati per provare altre funzioni; 
impareremo anche a scrivere alcune funzioni trigonometriche non previste nei com¬ 
pilatori Pascal standard, e esamineremo a fondo la funzione ARCTAN. 

In certi casi una funzione può essere associata alla sua inversa; ad esempio si 
può estrarre il LOG della funzione EXP, come si vede nella figura 1.8; oppure si può 
calcolare la funzione ARCTAN del rapporto SIN/COS. (La funzione TAN non esiste 
nel Pascal standard). 

I compilatori Pascal in genere hanno le funzioni SQRT, SOR, EXP, LN, SIN, COS e 
ARCTAN. Purtroppo, la funzione ARCTAN per argomenti negativi non viene calcola¬ 
ta nello stesso modo in tutti i compilatori: alcuni restituiscono un angolo nel secondo 
quadrante, (da 90° a 180°), altri nel quarto (da 0° a —90°); inoltre non si possono di¬ 
stinguere gli angoli del primo quadrante da quelli del terzo. 
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PROGRAM TLOG(OUTPUT); 

(* test In ed exp *) 

VAR 

I : INTEGER; 

X, Y : REAL; 

BEGIN 

X := 1.0E —4/0.3; 

FORI := 1 TO 20 DO 
BEGIN 

Y := LN(X); 

WRITELN(' x =', X, In =', Y, exp(ln) = ', EXP(Y)); 
X : = 0.5 * X 

END 

END. 


Figura 1.8 — Prova delle funzioni LN e EXP. 


La funzione ARCTAN mostrata in Figura 1.9 tratta correttamente tutte queste pos¬ 
sibilità. Vengono forniti due argomenti, la x e la y dell’angolo, e viene chiamata la 
funzione standard Pascal ARCTAN con un argomento positivo; in questo modo il ri¬ 
sultato risulta corretto per ogni quadrante. Per esempio, consideriamo un angolo 
con x=—5 e y=—5, cioè un angolo di (180+45)° nel terzo quadrante. La tangente di 
questo angolo è 1, e la funzione standard ARCTAN darebbe un angolo di 45°; la fun¬ 
zione ATAN della figura 1.9 restituisce invece correttamente un risultato di 225°. 
Notate che questa funzione dà gli angoli in gradi invece che in radianti. 

Nei compilatori Pascal standard non esistono le funzioni Arcoseno e Arco-cose¬ 
no, ma possono essere ricavate dalla arcotangente. La funzione della figura 1.10 
serve per calcolare l’arcoseno, con la funzione arcotangente della figura 1.9; l’arco- 
seno restituisce un angolo nel primo quadrante se l’argomento è positivo, un angolo 
negativo nel quarto quadrante se l'argomento è negativo. Il valore dell’angolo è in 
gradi. 
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FUNCTION ATAN(X, Y : REAL): REAL; 

(x arctan in gradi *) 

CONST 

PII 80 = 57.2957795; 

VAR 

A : REAL; 

BEGIN (* function atan *) 

IFX = 0.0 THEN 

IF Y = 0.0 THEN ATAN : = 0.0 
ELSE ATAN := 90.0 
ELSE (* x <> 0 *) 

IFY = 0.0 THEN ATAN := 0.0 
ELSE (* x ey <>0 *) 

BEGIN 

A : = ARCTAN(ABS(Y/X)) * PI 180; 

IFX >0.0 THEN 

IFY >0.0 THEN ATAN := A (* x, y>0 *) 

ELSE ATAN := -A (* x > 0, y < 0 *) 

ELSE (* x<0 *) 

IFY >0.0 THEN ATAN := 180.0 -A (* x < 0, y >0 *) 
ELSE ATAN := 180.0 + A (* x, y<0 *) 

END (* else *) 

END (* function atan *); 


Figura 1.9 — Funzione Arcotangente con due argomenti. 


Nella figura 1.11 è mostrata la funzione arco-coseno, realizzata tramite la funzio¬ 
ne arcotangente della figura 1.9. Se l'argomento è positivo, il risultato è un angolo 
nel primo quadrante; se è negativo, nel secondo quadrante. 

Nella figura 1.12 è mostrato un programma per provare le funzioni "arco", con le 
funzioni ATAN della figura 1.9 e ARCSIN della figura 1.10. 

In questo paragrafo abbiamo visto l’implementazione di funzioni logaritmiche e 
trigonometriche, sia fornite dai compilatori Pascal standard sia realizzate da utente. 
Ritorneremo a questo argomento alla fine del capitolo, dopo aver studiato le opzioni 
Pascal di gestione file. 
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FUNCTION ARCSIN(X : REAL): REAL; 

(* arcsin in gradi *) 

(* è richiesta la funzione ATAN *) 

(* 1 Feb 81 *) 

BEGIN (* function arcsin *) 

IF X = 0.0 THEN ARCSIN := 0.0 

ELSE 

IF X = 1.0 THEN ARCSIN : = 90.0 

ELSE 

IF X = -1.0 THEN ARCSIN := -90.0 
ELSE ARCSIN := ATAN( 1.0, X/SQRT(1.0 - SQR(X))) 
END (* function arcsin *); 


Figura 1.10 — La funzione Arcoseno. 


FUNCTION ARCCOS(X : REAL): REAL; 

(# arccos in gradi #) 

(* è richiesta la funzione ATAN *) 

(* 1 Feb 81 *) 

BEGIN (* function arccos *) 

IF X = 0.0 THEN ARCCOS : = 90.0 

ELSE 

IF X = 1.0 THEN ARCCOS : = 0.0 

ELSE 

IF X = -1.0 THEN ARCCOS : = 180.0 
ELSE ARCCOS := ATAN( X/SQRT(1.0 - SQR(X)),1.0) 
END (* function arccos *); 


Figura 1.11 — La funzione Arco-coseno. 
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FILE 

La figura 1.12 dà un esempio di utilizzo della direttiva INCLUDE e dell’istruzione 
EXTERN. Entrambe fanno riferimento a parti di un programma Pascal che si trovano 
su un file su un disco. I compilatori Pascal hanno in genere solo una di queste opzioni, e 
talvolta neanche una. L'uso di queste opzioni presenta diversi vantaggi: prima di tutto 
il programma principale sarà meno disordinato e più facile da capire se alcune pro¬ 
cedure o funzioni sono trattate separatamente; inoltre diversi programmi principali 
possono richiamare le stesse procedure su file esterni, riducendo in questo modo lo 
spazio necessario su disco, non essendo necessaria una copia separata della pro¬ 
cedura per ogni programma. Altro vantaggio è che un file esterno può essere modifi¬ 
cato con più facilità, essendocene una sola copia. 


PROGRAM TASIN(INPUT, OUTPUT); 

(# test arcsin ed arctan *) 

VAR 

X : REAL; 

(* FUNCTION atan(x, y : reai): reai; 

extern; *) 

(*$l ATAN.PAS *) 

(* FUNCTION arcsin(x : reai): reai; 

extern; *) 

(*$l ASIN.PAS *) 

BEGIN (* programma principale *) 

REPEAT 

WRITE(' X:'); 

READLN(X); 

WRITELNCl' Arcoseno di’ ,X:5:2, ‘è’ ARCSIN(X):7:4) 
UNTILX = -1.0 
END. 


Figura 1.12 — Programma di prova delle funzioni Arcoseno e Arcotangente. 
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La direttiva INCLUDE 


Il comando INCLUDE è una direttiva per il compilatore della forma: 
(* $1 NAME.PAS*) (versione UCSD) 


oppure 

(* $F NAME.PAS*) (versione Pascal/M) 


Quando il compilatore incontra la direttiva INCLUDE, va al file sorgente indicato 
nella direttiva ed elabora le istruzioni che vi trova; quando incontra un carattere di 
end-of-file, torna al programma principale. Il codice oggetto risultante si presenterà 
come se il file indicato con la INCLUDE fosse effettivamente inserito nel programma 
principale. 

La direttiva INCLUDE è usata come commento, e quindi, dal punto di vista sintat¬ 
tico, viene ignorata dal compilatore; in genere non può essere nidificata, e quindi un 
file richiamato con una INCLUDE non può contenere una direttiva INCLUDE per un 
altro file. 

Notiamo che i file richiamati cona INCLUDE sono programmi ASCII, e quindi oc¬ 
cupano nel disco lo stesso spazio che occuperebbero se facessero fisicamente 
parte del programma principale; in realtà, lo spazio di disco usato per il programma 
principale e i file della INCLUDE, può essere anche maggiore, visto che c’è una di¬ 
mensione minima di blocco per i file su disco. Inoltre la procedura su file deve esse¬ 
re compilata ogni volta che deve essere compilato il programma principale, e quindi 
non si risparmia tempo. Ciononostante, la direttiva INCLUDE resta vantaggiosa 
quando una stessa procedura viene usata da più programmi. 


L’istruzione EXTERN 

L'istruzione EXTERN, disponibile su alcuni compilatori Pascal, è analoga alla di¬ 
rettiva INCLUDE, ma molto più sofisticata. In questo caso una procedura può esse¬ 
re compilata separatamente; il file esterno deve contenere le dichiarazioni CONST, 
TYPE e VAR all'inizio, in modo che siano definite le matrici usate come parametri. 
Per esempio: 

CONST 

MAXR = 7; 

TYPE 

ARY2 = ARRAY[1 ..MAXR, 1..MAXC10F REAL; 

VAR 

A, Y : ARY2; 
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Segue il corpo della procedura: 

PROCEDURE NAME(A, Y : ARY); 

END. 


Dopo l’ultima istruzione di END viene messo un punto per indicare la fine del file; 
alcuni compilatori vogliono il punto e virgola prima del punto. 

Il programma principale richiama il file esterno con la normale intestazione della 
procedura o della funzione, seguita dalla parola EXTERN. Per esempio: 

PROCEDURE PLOT(X, Y. YCALC : ARY; 

N : INTEGER); 

EXTERN; 

L'istruzione EXTERN non fa parte del Pascal standard, sebbene menzionata da 
Jensen e Wirth; in genere nei compilatori si trova più raramente della INCLUDE. 

Esiste nel Pascal UCSD, Pascal/MT+ e Pascal/Z. In questo libro vengono usate 
entrambe, e le parti EXTERN sono contenute tra caratteri di commento, che devono 
essere eliminati se si desidera utilizzarle. 

Continuiamo ora il nostro studio delle funzioni logaritmiche ed esponenziali del 
Pascal. 


UNA FUNZIONE POTENZA DEL 10 

Può capitare di voler elevare a potenza un numero, ad esempio 10 alla x. In BA¬ 
SIC l'espressione: 

Y = 10 T X 


definisce la variabile Y come 10 elevato alla X; se X vale 0.1, Y assume il valore 
1.2589...L’espressione corrispondente in FORTRAN è: 

Y = 10**X 


Purtroppo nel Pascal standard non è prevista una funzione del genere; è prevista 
però la funzione EXP, tramite la quale può essere calcolato un elevamento a poten¬ 
za come segue: 

Y : = EXP(X*LOG10) 
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dove LOGIO è una costante definita precedentemente come il logaritmo naturale di 
10. Più in generale, si può calcolare Z elevato a X con l’espressione: 

Y : = EXP(X*LN(Z)) 
dove LN è la funzione logaritmo naturale. 

Calcolo di EXP con lo sviluppo in serie di Taylor 

Se non esiste la funzione EXP non si possono usare le espressioni precedenti. In 
questo caso si può sviluppare l’elevamento a potenza in serie di Taylor, con la for¬ 
mula: 

f(x) = f(a) + (x-a)f'(a) + (x-a) 2 f"(a) / 2!... 

Se la funzione viene sviluppata intorno allo zero, a vale zero, e i termini dello svi¬ 
luppo sono: 

f(x) =10* f(0) =1 

f'(x) = 10 x ln(10) HO) = In (10) 

f'(x) = 10 x [ln (IO)] 2 HO) = [In (IO)] 2 


La serie risultante è: 

(r s ! i , (In IO) 2 , (In IO) 3 

f(x) = 1 + x In 10 + x 2 - + x 3 + . .. 


Lo sviluppo in serie ha una buona approssimazione intorno allo zero, e diventa 
sempre meno preciso man mano che aumenta il valore dell'argomento. I coefficienti 
di una serie con 10 termini sono: 


*o = i.o 

f, = 2.3025851 
t 2 = 2.6509491 
t 3 = 2.0346786 
t 4 = 1.1712551 
( 5 = 0.5393829 
t 6 = 0.2069958 
t 7 = 0.0680894 
t 8 = 0.0195977 
t,= 0.0050139 
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L'equazione corrispondente è: 

10 *= £ t,x' 

La serie raggiunge una precisione di 6 cifre quando l’argomento è compreso tra 
0 5 e — 0 . 5 , mentre diventa meno precisa quando l’argomento esce da questi limiti. 

Si possono usare degli accorgimenti per ricondurre sempre l’argomento entro 
questi limiti; per esempio, se è maggiore di 0.5, si può sottrarre 1 tante volte quanto 
è necessario perché diventi minore di 0.5. Naturalmente il risultato deve essere mol¬ 
tiplicato per 10 ad ogni sottrazione. Per esempio, supponiamo che l’argomento sia 
3.5. Allora: 

IO 3 - 5 = IO 3 • IO 0 - 5 = 10 • IO 2 - 5 = 100 • IO 1 - 5 = 1000 • IO 0 - 5 


Il valore di 10 elevato a 3.5 si ottiene dal prodotto di 1000 per IO 0 5 . 

Analogamente, argomenti minori di —0.5 possono essere incrementati fino a di¬ 
ventarne maggiori, dividendo per 10 il risultato ad ogni addizione. Ora studieremo 
l’implementazione di questa serie di Taylor con un programma Pascal. 


PROGRAMMA PASCAL: CALCOLO DI UNA POTENZA DI 10 

La funzione POWER della figura 1.13 può essere usata per calcolare le potenze di 
10 da un sviluppo in serie di Taylor con 10 termini. In questa funzione viene eseguito 
un controllo sul valore deM’argomento in diverse fasi: l’argomento iniziale viene esa¬ 
minato all’inizio della funzione, e, se il valore è molto grande, viene restituito un nu¬ 
mero grande in floating-point come valore della funzione; se è molto piccolo viene 
restituito zero. I limiti effettivi per questi due test devono essere stabiliti su misura 
per il vostro compilatore, usando i risultati del programma della figura 1.1. Per e- 
sempio, se capita un underflow subito dopo un valore di 3.333E-18, allora il valore di 
SM ALL deve essere 18. Notate che la funzione POWER viene richiamata in modo ri¬ 
corsivo quando l’argomento è molto grande. 

Se II valore dell’argomento è compreso tra 0.5 e LARGE, si applica una tecnica di 
riduzione, sottraendo ripetutamente 4, finché l’argomento diventa minore di 4, e poi 
1 finché diventa minore di 0.5. Argomenti negativi vengono trattati analogamente. 
Quando l’argomento è compreso tra —0.5 e 0.5, si utilizza lo sviluppo in serie di Tay¬ 
lor, ottenendo un risultato preciso fino alla sesta cifra. 

Notate che l’argomento iniziale, fornito dal programma chiamante, non viene mai 
modificato; viene invece fatto un cambiamento di variabile, 

V ; = X ; 
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quasi all’inizio della funzione. Questo non è realmente necessario in quanto il para¬ 
metro è passato come valore e non come riferimento. 


Calcolo della serie di Taylor 

Esistono diversi metodi per calcolare il valore di una serie di Taylor; il più sempli¬ 
ce è quello di inserire la serie nel programma nella sua forma matematica usuale: 


SUM : = 1.0 + T1*Y + T2*Y*Y + T3*Y*Y*Y + ... 


Il vantaggio di questa forma è la chiarezza del codice risultante; è però un metodo 
assolutamente inefficiente, in quanto il tempo di esecuzione cresce drammatica- 
mente al crescere del numero dei termini della serie. 

Un altro metodo prevede l’uso di cicli; viene usato un insieme di istruzioni come 
quello seguente 


SUM : = 1.0; 

TERM : = 1.0; 

FOR I : = 1 TO 9 DO 
BEGIN 

TERM : = TERM *Y*LOG10/1; 
SUM : = SUM + TERM 

END; 


che aggiunge un termine alla serie ogni volta che viene eseguito il ciclo; questo me¬ 
todo è molto più facile da implementare di quello scelto nel nostro esempio, e la lun¬ 
ghezza della serie può essere rapidamente modificata per adattarlo a diversi packa¬ 
ge floating-point; è però piuttosto lento. 

Il metodo usato nel nostro programma consiste nella somma diretta di un numero 
fisso di termini polinomiali, i cui coefficienti sono definiti come costanti all’inizio del¬ 
la funzione; la somma viene effettuata con un ciclo sui termini del polinomio. È il 
metodo più veloce dei tre; ha lo svantaggio di dover incorporare più di 50 cifre nella 
funzione. 

L’uscita del programma è mostrata nella figura 1.14. 
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PROGRAM TPOW( OUTPUT); 

(* test sulla funzione potenza-dl-dieci *) 

CONST 

LOG 10 = 2.3025851; 


I : INTEGER; 

X, Y, A : REAL; 

FUNCTION POWER(X : REAL) : REAL; 

(* calcola dieci elevato ad x #) 

(* per mezzo di un polinomio di decimo grado *) 
(* 5 Feb 81 *) 

CONST 

BIG = 16.0; 

TI = 2.3025851; 

T2 = 2.6509491; 

T3 = 2.0346786; 

T4 = 1.1712551; 

T5 = 0.5393829; 

T6 = 0.2069958; 

T7 = 0.0680894; 

T8 = 0.0195977; 

T9 = 0.0050139; 


SUM, Y, ANS : REAL; 


Figura 1.13 — Una funzione per calcolare le potenze del 10. 
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BEGIN (* function power *) 

IF X > BIG THEN POWER := POWER(BIG) 

ELSE 

IF X < -BIG THEN POWER := 0.0 
ELSE 
BEGIN 
Y:= X; 

ANS := 1; 

WHILE Y > 4.0 DO 

BEGIN (x decrementa di 4 x) 

Y : = Y - 4.0; 

ANS := 10000.0 * ANS 
END; 

WHILE Y< -4.0 DO 

BEGIN ( x incrementa di 4 x ) 

Y := Y + 4.0; 

ANS := 0.0001 * ANS 

END; 

WHILE Y> 0.5 DO 

BEGIN (x decrementa di 1 x) 

Y := Y - 1.0; 

ANS := 10.0 * ANS 

END; 

WHILE Y< -0.5 DO 

BEGIN (x incrementa di 1 x) 

Y := Y + 1.0; 

ANS : = 0.1 * ANS 

END; 

SUM := (T5 + Y*(T6 + Y*(T7 + Y*(T8 + Y*T9)))); 

SUM := 1.0 + Y*(T1 + Y*(T2 + Y*(T3 + Y*(T4 + Y*SUM)))); 
POWER := ANS * SUM 
END (* else *) 

END (* function power *); 


Figura 1.13 — Una funzione per calcolare le potenze del 10 (segue). 
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BEGIN (* programma principale *) 

WRITELN; 

FOR I := 1 TO 4 DO (* passo piccolo *) 

BEGIN 

X := 0.2 * I - 0.1; 

A : = POWER(X); 

WRITELN(' x = ', X:5:2, 10 A x = ', A, 
actual=' ( EXP( X * LOGIO)); 

Y := —X; (* cambia segno *) 

A := POWER(Y); 

WRITELN(' x = ', Y:5:2, 10 A x = ', A, 
reale =', EXP( Y * LOGIO)) 

END; 

FOR I := 1 TO 6 DO (* passo grande *) 

BEGIN 

X := 2.0 * I - 0.5; 

A := POWER(X); 

WRITELN(' x = ' ( X:5:2, 10 A x = ', A, 
reale =',EXP( X * LOGIO)); 

Y := —X; (* cambia segno *) 

A : = POWER(Y); 

WRITELN(' x=' ( Y:5:2, 10 A x = ', A, 
reale =', EXP( Y * LOGIO)) 

END 

END. 


Figura 1.13 — Una funzione per calcolare le potenze del 10 (segue). 
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x = 0.10, 

10 A x = 

1 .25893E + 00, 

reale = 1.25893E + 00 

x=-0.10, 

1 0 A x = 

7.94328E-01, 

reale = 7.94328E-01 

x= 0.30, 

1 0 A x = 

1.99526E+00, 

reale = 1 .99526E + 00 

x=-0.30, 

1 0 A x = 

5.01187E-01, 

reale = 5.011 87E-01 

x= 0.50, 

1 0 A x = 

3.16228E+00, 

reale = 3.16228E+00 

x = -0.50, 

1 0 A x = 

3.1 6227E-01 , 

reale = 3.16228E-01 

x= 0.70, 

1 0 A x = 

5.01187E+00, 

reale = 5.01187E + 00 

x=-0.70, 

1 0 A x = 

1.99526E-01, 

reale = 1 .99526E-01 

x= 1.50, 

1 0 A x = 

3.1 6228E + 01, 

reale = 3.16228E+01 

x=-1.50, 

1 0 A x = 

3.1 6227E-02, 

reale = 3.16228E-02 

x= 3.50, 

1 0 A x = 

3.16228E + 03, 

reale= 3.1 6228E + 03 

x=-3.50, 

1 0 A x = 

3.16227E-04, 

reale = 3.16228E-04 

x — 5.50, 

1 0 A x = 

3.16228E + 05, 

reale = 3.16228E+05 

x=-5.50, 

1 0 A x = 

3.16227E-06, 

reale = 3.16228E-06 

x= 7.50, 

1 0 A x = 

3.16228E+07, 

reale = 3.16228E+07 

x=-7.50, 

1 0 A x = 

3.1 6227E-08, 

reale = 3.16228E-08 

x= 9.50, 

1 0 A x = 

3.16228E+09, 

reale = 3.16228E+09 

x=-9.50, 

10 A x = 

3.16227E-10, 

reale = 3.16228E-10 

x= 11.50, 

1 0 A x 

= 3.16228E + 11, 

reale = 3.16228E + 11 

x=-11.50, 

1 0 A x 

= 3.16227E-12, 

reale = 3.16228E-12 


Figura 1.14 — Risultati del programma di calcolo delle potenze del 10. 


SOMMARIO 

In questo capitolo sono stati forniti alcuni strumenti di valutazione dei compilatori 
Pascal; siamo partiti da un programma di test delle operazioni in floating-point, ese¬ 
guito sotto tre diversi compilatori con analisi comparata dei risultati. Abbiamo poi 
scoperto un'interessante «debolezza» delle funzioni SIN e COS di alcuni compilatori 
e abbiamo scritto un programma per provarle. 

Studiando altri programmi di prova di funzioni, ci siamo accorti che ci serviva una 
tecnica per inserire file esterni in un programma principale; questo ci ha portato a 
studiare la direttiva INCLUDE e l'istruzione EXTERN del Pascal. 

Infine abbiamo usato le conoscenze acquisite in questo capitolo per scrivere un 
programma Pascal che calcola le potenze del 10 con lo sviluppo in serie di Taylor. 
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CAPITOLO 2 


MEDIA E DEVIAZIONE STANDARD 


introduzione 

In questo capitolo richiameremo alcune nozioni di statistica e studieremo come 
applicarle con dei programmi Pascal. Descriveremo l'uso della media e della devia¬ 
zione standard, e presenteremo un programma che calcola questi valori. Discutere¬ 
mo anche la generazione di numeri casuali con il calcolatore, in particolare in Pa¬ 
scal. Infine studieremo dei programmi Pascal per valutare la "casualità" dei numeri 
generati. 


LA MEDIA 


Spesso si usa un solo numero, che si chiama "media” o "valor medio”, per rap¬ 
presentare un insieme di dati. La media si calcola sommando tutti gli elementi del¬ 
l’insieme e dividendo il risultato per il numero degli elementi, con la formula seguen¬ 
te: 

N 


y = 



(i) 


dove Y. è l'i-esimo elemento di un insieme che ne contiene N. Il simbolo Y (y 
segnato) è la media risultante. 

Quando la distribuzione dei dati è continua, la media può essere calcolata con un 
integrale. Consideriamo la funzione y = f(x) nell'intervallo (a,b); la media di y è co¬ 
stante in questo intervallo e quindi l’area della superficie sottesa dalla media è ugua¬ 
le a quella della superficie sottesa dalla curva f(x). 


y (b 
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Perciò il valor medio di y è: 

- -[ f(x)dx 

b - a 

Dispersione dalla media 

Talvolta tutti i dati sono vicini al valor medio, talvolta, invece, i valori coprono una 
gamma molto ampia. Consideriamo, come esempio del secondo caso, i dati sui 
tempo: la quantità media di pioggia caduta in un anno a San Francisco è di 19 polli¬ 
ci, e quella di neve a New York City è di 30 pollici, ma alcuni anni sono molto piovo¬ 
si, e altri molto asciutti; la temperatura media in un anno a San Francisco e ad Aibu- 
querque è esattamente la stessa, 57°, ma il clima di queste due città è compieta- 
mente diverso. 

Consideriamo un altro esempio: le scatole di una certa marca di cereali per cola¬ 
zione presentano la dicitura: 

Peso netto 500 gr. 


Supponiamo che un ispettore dell’Ufficio Pesi e Misure decida di controllare le 
scatole di questa marca in un certo negozio: apre diverse scatole e ne pesa il conte¬ 
nuto; alcune scatole contengono esattamente 500 gr., altre 470 gr. o 530 gr. 

Le scatole che contengono solo 470 gr. dovrebbero essere conficcate come e- 
sempio di peso scarso? Se pesiamo il contenuto di 100 scatole la distribuzione di 
frequenza risultante assomiglia alla curva della Figura 2.1. 


frequenza 



Figura 2.1 — Una curva a forma di Gaussiana. 
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Il peso medio è 500 gr.; alcune scatole pesano di meno, altre di più; solo pochissi¬ 
me pesano più di 530 gr. o meno di 470 gr. 

La curva della figura 2.1 è a forma di campana e mostra quella che si chiama di¬ 
stribuzione "Gaussiana” o “normale". Questo comportamento è tipico di una distri¬ 
buzione casuale dei dati intorno al valor medio, e l’equazione di questa curva si rica¬ 
va dalla funzione Gamma e dalla Gaussiana, di cui ci occuperemo nel Capitolo 11. 

Ora supponiamo che vengano controllate anche le scatole di un'altra marca. Il ri¬ 
sultato si presenta come nella figura 2.2: i dati hanno ancora una distribuzione a for¬ 
ma di campana, con un valor medio di 500 gr., ma questa volta c’è una maggiore di¬ 
spersione nei pesi; alcune scatole pesano 800 gr., altre 200 gr. 

Evidentemente i due casi sono molto diversi, anche se entrambi hanno lo stesso 
valor medio; dunque ci vuole qualcols'altro per descrivere correttamente la situazio¬ 
ne, qualcosa che informi sulla "dispersione”. Nel prossimo paragrafo descriveremo 
lo strumento che possiamo usare, la "deviazione standard”. 


frequenza 



Figura 2.2 — Una maggiore dispersione. 


LA DEVIAZIONE STANDARD 

La deviazione standard è una misura della dispersione intorno al valor medio: una 
grande deviazione standard significa una grande dispersione; una piccola deviazio¬ 
ne standard significa una piccola dispersione. Il simbolo della deviazione standard è 
la lettera minuscola "sigma" dell’alfabeto greco. La deviazione standard è definita 
dalla seguente relazione: 


o 


- y,) 2 

N - 1 


dove y è la media e gli y. sono gli N dati. 


( 2 ) 
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L’equazione (2) spiega il significato della deviazione standard: in una distribuzio¬ 
ne di valori, è importante il quadrato della differenza tra ogni elemento e il valor me¬ 
dio. Se gli elementi sono vicini al valor medio, questa differenza sarà piccola, e an¬ 
che la corrispondente deviazione standard sarà piccola. Se invece i dati sono distri¬ 
buiti lontano dal valor medio, la differenza sarà grande, come anche la deviazione 
standard. 

La deviazione standard può essere usata per descrivere quantitativamente la di¬ 
spersione di un insieme di dati. Ad esempio, in un intervallo pari a 1 deviazione stan¬ 
dard intorno alla media è compreso il 68% dei dati; il 95% dei dati è invece compre¬ 
so in un intervallo pari a 2 deviazioni standard, e il 99.7% in un intervallo pari a 3 de¬ 
viazioni standard. 

y ± a 68% 

y ± 2o 95% 

y ± 3o 99.7% 


Supponiamo di dover scegliere un tipo di acciaio per costruire un ponte, e di ese¬ 
guire delle prove per stabilirne la resistenza. Un tipo di acciaio presenta una resi¬ 
stenza di 450 MPa (megapascal) con una deviazione standard di 10 MPa. I risultati 
delle prove ci dicono che, statisticamente, il 99.7% dei pezzi hanno una resistenza 
compresa tra 420 e 480 MPa, cioè entro 3 deviazioni standard, e quindi il progetto 
può contare su di una resistenza di 420 MPa, 3 deviazioni standard al di sotto del va¬ 
lor medio. 

Un secondo tipo di acciaio ha una resistenza media di 500 MPa. È migliore del 
primo? Che cosa possiamo dire se la deviazione standard di questo secondo tipo è 
40 MPa? Il valore di questa deviazione standard significa una maggiore dispersione; 
una resistenza di 3 deviazioni standard al di sotto della media significa, per questo 
secondo tipo di acciaio, solo 380 MPa; non è quindi conveniente, anche se il valor 
medio è più alto. 

I metalli usati per le costruzioni devono avere in genere piccole deviazioni stan¬ 
dard. Materiali fragili, come il cemento armato e il vetro hanno invece, in genere, 
grandi deviazioni standard; supponiamo di fare delle prove per un tipo di vetro da u- 
sare per una porta principale di un ufficio. La resistenza media è di 120 MPa, e la 
deviazione standard è di 40 MPa; 3 deviazioni standard al di sotto della media signi¬ 
fica 0; è quindi molto importante considerare la deviazione standard altrettanto se¬ 
riamente che il valor medio. 

Abbiamo imparato il significato e l'importanza della deviazione standard; ora im¬ 
pareremo a calcolare il suo valore con un programma in Pascal. 


Calcolo della deviazione standard 

L’equazione 2 è una corretta rappresentazione della deviazione standard, ma non 
dà un buon metodo di calcolo; infatti la sottrazione di ogni elemento dal valor medio 
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provoca una perdita di significatività, soprattutto per i punti molto vicini alla media, 
più piccola è la deviazione standard, più grosso diventa il problema. Un altro svan¬ 
taggio è che la media deve essere calcolata prima di effettuare qualsiasi sottrazio¬ 
ne, mentre questo calcolo non è possibile finché non sono disponibili tutti i dati. 

Sviluppando il numeratore dell'equazione 2 si trova un buon metodo di calcolo 
della deviazione standard. 

Z ( y 1 - 2yy i + yf) 


Combinando l'equazione precedente con l’equazione 1, abbiamo: 


^-V N - 2 (J-Yj. ) Z Yi + ly, 2 


K N J \N 

dato che ? = 2Iy»/ N. La formula risultante è: 




Z y 2 - Zy Z y/N 
N - 1 


Con questo metodo si conservano due totali: quello dei singoli dati e quello dei lo¬ 
ro quadrati. 


PROGRAMMA PASCAL: MEDIA E DEVIAZIONE STANDARD 

Il programma della figura 2.3 può essere usato per calcolare la media e la devia¬ 
zione standard di un insieme di numeri. Il programma principale chiede all’utente il 
numero di elementi, e chiama la procedura MEANSTD per calcolare la media e la 
deviazione standard. Questa procedura usa quattro parametri: il primo è la matrice 
che contiene i valori, dichiarata di tipo ARY; il secondo è il numero di valori della 
matrice; il terzo e il quarto sono la media e la deviazione standard, calcolati dalla 
procedura stessa. 

Il programma della figura 2.3 mostra come si possono passare matrici come pa¬ 
rametri alle procedure. Il Pascal richiede un’istruzione di dichiarazione particolare 
per ogni parametro; un'espressione del tipo 

PROCEDURE MEANSTD(X:ARRAY[1..MAX]OF REAL;...); 

non è consentita, mentre nel programma principale deve essere definito esplicita¬ 
mente il tipo di ogni matrice usata come parametro. 

TYPE 

ARY = ARRAY|1..MAX)OF REAL 
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PROGRAM AAEANS(INPUT, OUTPUT); 

(* Stima della media e della deviazione standard *) 
(* 19 Gen 81 *) 

CONST 

AAAX = 80; 

TYPE 

ARY = ARRAY[1 ..AAAX] OF REAI; 

VAR 

X : ARY; 

l,N : INTEGER; 

AAEAN, STD : REAL; 

PROCEDURE AAEANSTD 

(X : ARY; (* matrice dei valori *) 

LENGTH : INTEGER; 

VAR AAEAN : REAL; 

VAR STD_DEV : REAL); 


VAR 


I : INTEGER; 

SUAA_X, SUM_SQ: REAL; 


BEGIN 

SUM_X : = 0; 

SUM_SQ := 0; 

FOR I : = 1 TO LENGTH DO 

BEGIN 

SUM_X := SUM_X + X[l]; 

SUM_SQ := SUM_SQ + X[l] * X[l] 


Figura 2.3 — Calcolo della media e della deviazione standard. 
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END; 

MEAN := SUAA_X/LENGTH; 

STD _ DEV : = 

SQRT((SUM_SQ - SQR( SUAA_X)/LENGTH)/(LENGTH— 1 )) 
END (* procedure meanstd *); 

BEGIN (* programma principale *) 

WRITELN; 

WRITELN ( Calcolo della media e della deviazione standard ); 

REPEAT 

WRITE ( Quanti punti? ); 

READLN(N) 

UNTIL N < = MAX; 

FOR l: = l TO N DO 
BEGIN 

WRITE( 1:3,': '); 

READLN(X[I]) 

END; 

MEANSTD( X, N, MEAN, STD); 

WRITELN; 

WRITELN ( Per’, N:3, punti, media= , MEAN:8:4, 
sigma = ', STD:8:4) 

END. 


Figura 2.3 — Calcolo della media e della deviazione standard (segue). 
Il tipo così definito è poi inserito nell’intestazione della procedura. 
PROCEDURE MEANSTD(X: ARY;...); 


Il programma inizia chiedendo all’utente il numero di valori da leggere; se è mag¬ 
giore della dimensione della matrice X, la domanda viene ripetuta. Una volta letti i 
valori, vengono calcolate la media e la deviazione standard. 

Se devono essere inseriti molti valori, si può usare un altro metodo: il programma 
conta i numeri mano a mano che vengono letti, e un valore particolare, ad esempio 
un numero minore di —20000, viene usato per segnalare la fine dei dati. 
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Compilate il programma ed eseguitelo. Inserite i cinque numeri 1,2,3,4,5, e verifi¬ 
cate che la media è 3 e la deviazione standard 1.58. I risultati si presenteranno co¬ 
me in figura 2.4. 


Calcolo della media e della deviazione standard 
Quanti punti? 5 
1 : 1 
2 : 2 
3: 3 
4: 4 
5: 5 

Per 5 punti. media= 3.0000, sigma= 1.5811 


Figura 2.4 — Risultati del programma di calcolo della media e della deviazione 
standard. 

Abbiamo cosi completato l’introduzione alla media e alla deviazione standard; vi 
ritorneremo in seguito. Ora affronteremo il problema dei numeri casuali e della loro 
generazione. 


NUMERI CASUALI 

Quando non sono disponibili dati reali per provare un programma, può essere ne¬ 
cessario usare, in certi casi, dei numeri casuali. Supponiamo per esempio di aver 
scritto un programma per interpolare con una retta un insieme di dati sperimentali: 
dovremo generare un’insieme di punti distribuiti su una linea retta, e poi allontanarli 
da essa usando una funzione di generazione di numeri casuali. 


FUNZIONE PASCAL: GENERAZIONE DI NUMERI CASUALI 

In alcuni, ma non tutti, compilatori Pascal esiste la funzione di generazione di nu¬ 
meri casuali; per alcuni programmi di questo libro questa funzione è necessaria. Se 
il vostro compilatore non la possiede, potete usare il programma della figura 2.5, 
che è stato studiato in modo da essere compatibile con le più comuni funzioni di ge¬ 
nerazione di numeri casuali fornite normalmente dai compilatori Pascal. 

Questo programma restituisce una sequenza di numeri compresi tra zero e uno. 
Una chiamata tipica alla funzione RANDOM sarà del tipo: 

XI : = RANDOM(O); 
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Alcuni generatori di numeri casuali usano il parametro come origine per il numero 
successivo; in altri casi, un particolare valore dell'argomento segnala che verrà ge¬ 
nerato nuovamente il valore appena generato. Ma in questo caso il parametro per la 
funzione RANDOM è un argomento "dummy", e può quindi essere usato qualsiasi 
numero intero. 

L'origine effettiva per la generazione dei numeri casuali è contenuta nella variabi¬ 
le reale globale SEED, che deve essere dichiarata ed inizializzata dal programma 
chiamante. Una buona scelta può essere il valore iniziale di 4.0. La procedura RAN¬ 
DOM trasgredisce una regola generale della programmazione, in base alla quale 
una subroutine non dovrebbe cambiare variabili globali; ma in questo caso è proba¬ 
bilmente la soluzione migliore; infatti il Pascal non consente variabili locali perma¬ 
nenti nelle subroutine. 

Dopo la prima chiamata alla funzione RANDOM, SEED contiene il numero casua¬ 
le appena generato, ma questo numero non può essere memorizzato come variabile 
locale nella RANDOM. Infatti, in Pascal, le variabili locali sono sempre reinizializza- 
te ad ogni esecuzione di una procedura. Un'altra possibilità è di dichiarare l’origine 
come parametro della funzione RANDOM; in questo caso il programma chiamante 
deve conservare una copia dell’ultimo numero casuale da usare come origine per la 
chiamata successiva. Questo però va contro lo stile delle funzioni di generazione di 
numeri casuali che si trovano di solito nei compilatori Pascal; si è scelto quindi di 
memorizzare l'origine come variabile globale. 

Studieremo ora un programma di prova delle funzioni di generazione di numeri 
casuali. 

FUNCTION RANDOM(DUMMY: INTEGER): REAL; 

(* numero random 0 — 1 a) 

(a definisce SEED = 4.0 come globale a) 

(a Adattato dai Programmi Applicativi HP — 35 a) 

CONST 

PI = 3.14159; 

VAR 

X: REAI; 

I: INTEGER; 

BEGIN (* Random *) 

X := SEED + PI; • 

X := EXP(5.0 * LN(X)); 

SEED := X - TRUNC(X); 

RANDOM : = SEED 
END(* Random ★); 


Figura 2.5 — Una funzione Pascal per generare numeri casuali. 


29 




PROGRAMMA PASCAL: VALUTAZIONE DELLE FUNZIONI 
DI GENERAZIONE DI NUMERI CASUALI 


Sia che usiate il programma della figura 2.5 che una routine fornita dal vostro Pa¬ 
scal. potete eseguire un semplice test per valutarne la bontà. Il valor medio di un in¬ 
sieme di numeri casuali compresi tra 0 e 1 è ovviamente 1/2, e la deviazione 
standard è uguale al reciproco della radice quadrata di 12, cioè 0.2887. 

Il programma della figura 2.7 è un test per le funzioni di generazione dei numeri 
casuali. Chiama la funzione RANDOM 48 volte, poi chiama la procedura MEANSTD 
della figura 2.3, per calcolare la media e la deviazione standard. Questo processo 
viene ripetuto 20 volte, ed ogni volta vengono stampate la media e la deviazione 
standard. I valori previsti sono stampati in cima alle colonne dei risultati. 


Esecuzione del programma 


Scrivete il programma, aggiungete la procedura MEANSTD e, se necessario, la 
funzione RANDOM; poi eseguite la prova. Le funzioni di generazione di numeri ca¬ 
suali sono spesso dette “pseudo-casuali", per sottolineare il fatto che i numeri gene¬ 
rati non sono perfettamente casuali; perciò non dovete aspettarvi di ottenere un va- 


media 

dev std 

(0.5) 

(0.2887) 



0.4294 

0.3156 

0.6200 

0.3016 

0.5008 

0.2439 

0.3615 

0.2758 

0.4121 

0.2522 

0.3960 

0.2554 

0.5444 

0.2363 

0.5013 

0.3129 

0.5282 

0.3734 

0.5105 

0.2375 

0.5585 

0.2701 


Figura 2.6 - Risultati del programma RANTST. 
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lor medio pari a 0.5 e una deviazione standard di 0.2887 per ogni insieme di 48 valo¬ 
ri. La prima parte dei risultati prodotti dal programma RANTST si presenteranno co¬ 
me in figura 2.6. 


Notate che il valor medio varia da 0.36 a 0.62, e la deviazione standard da 0.24 a 
0 37. In genere le funzioni fornite dai compilatori Pascal sono più precise, ma non 
sempre. 


Generazione di numeri casuali con 7t 

Una breve sequenza di numeri casuali si può ottenere dalle prime 15 cifre dizr: 
3.14159265358979 


con un valor medio di 5.1 e una deviazione standard di 2.8. 

La funzione di generazione di numeri casuali che descriveremo ora è studiata per 
simulare dati sperimentali. 


Distribuzione Gaussiana di numeri casuali 

Gli errori che si commettono effettuando una misura possono essere di diverse 
entità, ma quelli piccoli sono più probabili di quelli grandi. Per esempio, supponiamo 
di misurare con un metro una tavola lunga due metri; un errore di un metro è certa¬ 
mente meno probabile di un errore di un centimetro; un errore di cinque metri è an¬ 
cora più improbabile. In genere, valori molto lontani dal valore esatto sono molto 
meno probabili di quelli vicini; perciò, se vogliamo simulare dati sperimentali con dei 
numeri casuali, questi non possono avere una distribuzione uniforme, mentre le più 
comuni funzioni generano numeri casuali uniformemente distribuiti tra zero e uno. 

Per simulare dati sperimentali occorre un insieme di numeri casuali raggruppati 
intorno al valor medio, la cui distribuzione di frequenza avrà una forma a campana, 
come la distribuzione normale o Gaussiana. Fortunatamente è abbastanza facile 
produrre una simile distribuzione da una comune funzione di generazione di numeri 
casuali. 

Consideriamo una sequenza di 12 numeri casuali; è altamente improbabile che 
tutti e 12 siano 0, come anche che siano 1. Supponiamo ora di generare un nuovo 
numero dalla somma di 12 numeri casuali distribuiti uniformemente; il valor medio 
dei numeri di partenza è 1/2, la somma sarà circa 12 volte il valor medio, cioè 6. Co¬ 
me vedremo questa è la chiave per generare numeri casuali secondo una distribu¬ 
zione Gaussiana, usando una normale funzione di generazione di numeri casuali; 
studieremo un’implementazione di questa funzione in Pascal. 
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PROGRAM RANTST(OUTPUT); 

(* test sul generatore di numeri random RANDOM *) 
(* sono inoltre richieste la procedura MEANSTD e la 
funzione RANDOM *) 

TYPE 

ARY = ARRAY[1.. 100] OF REAL; 

VAR 

X : ARY; 

N, I, J : INTEGER; 

R, MEAN, STD, 

SEED : REAL; 

(* FUNCTION random(dummy: integer): reai; 

extern; *) 

(*$F RANDOM. PAS *) 

(* PROCEDURE meanstd 

( x : ary; 

length : integer; 

VAR mean : reai; 

VARstd_dev : reai); 

extern; *) 

(*$F MEANSTD.PAS *) 


Figura 2.7 — Programma di prova della funzione di generazione dei numeri ca¬ 
suali. 
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BEGIN (* Programma principale *) 

SEED := 4.0; 

N : = 48; 

WRITELN; 

WRITELN( ' media devstd'); 

WRITELN( ' (0.5) (0.2887)'); 

WRITELN( ' = = = = = = = = = =« = = = =-'); 

FORJ := 1 TO20DO 
BEGIN 

FOR I := 1 TO NJ DO 

X[l] := RANDOM(O); 

MEANSTD( X, N, AAEAN, STD); 
WRITELN( MEAN :10:4, STD :10:4) 
END (* ciclo j *) 

END. 


Figura 2.7 — Programma di prova della funzione di generazione dei numeri casuali 
(segue). 


FUNZIONE PASCAL: DISTRIBUZIONE GAUSSIANA 
DI NUMERI CASUALI . 

La figura 2.8 mostra una funzione Pascal che genera numeri casuali secondo una 
distribuzione Gaussiana. Ogni numero è ottenuto sommando 12 numeri casuali di¬ 
stribuiti uniformemente, e sottraendo 6. Un insieme di numeri così generati dovreb¬ 
be aver un valor medio 0 e una deviazione standard 1. Possono essere scelti altri va¬ 
lori. La formula per calcolare ogni numero casuale, RANDG, è: 

RANDG : = SIGMA* (SUM - 6) + MEAN 
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dove SUM è la somma di 12 numeri casuali uniformemente distribuiti, SIGMA è la 
deviazione standard desiderata, e MEAN il valor medio. Se ogni numero è ottenuto 
da più di 12 numeri, la formula diventa: 


RANDG : = SIGMA* (SUM - NUM/2)* SQRT(12/NUM) + MEAN 


dove NUM è la quantità di numeri casuali uniformemente distribuiti, usati per gene¬ 
rare la distribuzione Gaussiana. 

Dunque la funzione RANDG può essere usata con la RANDOM per generare un 
insieme di numeri casuali con distribuzione Gaussiana. Il programma chiamante de¬ 
ve fornire due parametri: la media e la deviazione standard volute. Oppure si posso¬ 
no assegnare due valori costanti a MEAN e SIGMA nella funzione RANDG, senza 
quindi farli comparire come parametri. 


FUNCTION RANDG(MEAN, SIGAAA : REAL): REAL; 

(* produzione di numeri random con una distribuzione Gaussiana *) 
(* MEAN e SIGMA sono fornite per mezzo di una chiamata 
di programma *) 

(* è richiesta la funzione RANDOM *) 

VAR 

I : INTEGER; 

SUM : REAL; 

BEGIN 

SUM := 0.0; 

FOR I := 1 TO 12 DO 

SUM := SUM + RANDOM(O); 

RANDG := (SUM - 6.0) * SIGAAA + MEAN 
END (* function randg *); 


Figura 2.8 — Una funzione di generazione di numeri casuali secondo la distribuzio¬ 
ne normale. 
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PROGRAMMA PASCAL: VALUTAZIONE DELLA FUNZIONE RANDG 

Nella figura 2.9 c’è un programma di prova della funzione RANDG. La media e la 
deviazione standard desiderate sono rispettivamente 10 e 1/2, e la procedura 
MEANSTD viene chiamata per calcolare la media e la deviazione standard di ogni 
insieme di numeri casuali; i numeri generati dovranno avere una media di 10 e una 
deviazione standard di 1/2. 

L’area della superficie sottesa dalla curva di distribuzione normale dipende dalla 
deviazione standard, e può essere ottenuta dalla funzione di errore Gaussiana pre¬ 
sentata nel Capitolo 11. 


PROGRAM RANTST(OUTPUT); 

(» test sul generatore di numeri random Gaussiani RANDG *) 
(# è inoltre richiesta la procedura MEANST 
e la funzione RANDOM #) 

TYPE 

ARY = ARRAY[1.. 100] OF REAL; 

VAR 

X : ARY; 

N, I, J : INTEGER; 

R, AVER, STD, 

SEED : REAI; 

(* FUNCTION random(dummy: integer): reai; 

extern; *) 

(*$F RANDOM. PAS *) 

C* PROCEDURE meanstd 

(x : ary; 

length : integer; 


Figura 2.9 — Programma di prova della funzione Gaussiana di generazione di nu¬ 
meri casuali. 
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VAR mean : reai; 

VAR std _dev : reai); 

extern; *) 

(*$F MEANSTD.PAS *) 

(* FUNCTION randg(mean, sigma : reai): reai; 

extern; *) 

(*$F RANDG.PAS *) 

BEGIN (# Programma principale *) 

SEED := 4.0; 

N : = 50; 

WRITELN; 

WRITELN( ' media dev std'); 

WRITELN( ' (10) (0.5)'); 

WRITELN( ' = = = = = = = = = = = = = = = = = = = ='); 

FOR J : = 1 TO 20 DO 
BEGIN 

FOR I := 1 TO N DO 

X[l] := RANDG(10, 0.5); 

AAEANSTD( X, N, AVER, STD); 

WRITELN( AVER : 10:4, STD :10:4) 

END (* ciclo j *) 

END 

Figura 2.9 — Programma di prova della funzione Gaussiana di generazione di nu¬ 
meri casuali (segue). 

SOMMARIO 

Abbiamo iniziato questo capitolo con la discussione di due importanti strumenti di 
statistica, la media e la deviazione standard, giungendo alla stesura di un program¬ 
ma in Pascal per il calcolo di questi due valori. Abbiamo poi scoperto come scrivere 
due diverse funzioni Pascal di generazione di numeri casuali, che potranno essere 
utili se il nostro compilatore non possiede tali funzioni. Infine abbiamo dimostrato 
l'importanza di poter valutare la “bontà” dei numeri casuali generati, e abbiamo stu¬ 
diato due programmi che lo fanno. 

Nel prossimo capitolo approfondiremo la nostra conoscenza di Pascal, studiando 
come eprimere vettori e matrici sotto forma di matrici Pascal. 
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CAPITOLO 3 


OPERAZIONI SU VETTORI E MATRICI 


introduzione 

In quasi tutti i capitoli di questo libro sono presentati programmi che fanno uso di 
vettori e di matrici; in questo capitolo richiameremo dunque i concetti di vettore e 
matrice e alcune tra le più comuni operazioni matematiche su di essi. Studieremo 
poi alcuni programmi Pascal sull'argomento. Ricordiamo per inciso che i vettori e le 
matrici sono un utilissimo strumento, che semplifica notevolmente la programma¬ 
zione di operazioni matematiche su insiemi di dati. 


SCALARI E MATRICI 

Cominciamo a stabilire la differenza tra una variabile scalare e una matrice. Una 
variabile semplice si chiama scalare, è identificata da un unico nome simbolico, ed 
è associata ad un solo valore. Per esempio, l’espressione Pascal 

YEAR : = 1971 


assegna un valore alla variabile scalare YEAR. In Pascal le variabili scalari possono 
essere reali, intere, alfanumeriche o logiche(booleane). 

Talvolta è necessario fare riferimento ad un insieme di variabili; il Pascal prevede 
diversi tipi di strutture dati per questo scopo, di cui la più semplice è quella che vie¬ 
ne chiamata “array". In un array tutti gli elementi sono dello stesso tipo, cioè reali, 
interi, alfanumerici o logici; inoltre possono essere essi stessi array, ma nei casi più 
frequenti sono variabili scalari. 

Gli elementi di un array sono identificati da un unico nome simbolico, mentre la 
loro posizione nell’array è identificata da un indice che segue il nome. L'elemento 
che occupa una certa posizione può essere richiamato individualmente tramite il 
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suo indice, e il suo valore può essere modificato senza toccare gli altri elementi. Nei. 
prossimi paragrafi vedremo come si rappresentano vettori e matrici sotto forma di 
array in Pascal, cominciando dai vettori. 


VETTORI 

Un vettore è un array ad una dimensione. (Il numero delle dimensioni è il numero 
degli indici, e non degli elementi). Ogni elemento di un vettore è identificato da un 
indice che, in genere, va da 1 al numero massimo degli elementi del vettore; in Pa¬ 
scal l'indice può partire da qualsiasi valore, cioè un array può iniziare con indice 0 o 
101 . 

Nell’uso comune, gli elementi di un vettore sono separati da uno spazio. Conside¬ 
riamo ad esempio il vettore v che contiene i valori; 

2 5 1 9 4 3 


L'istruzione Pascal: 

VAR V : ARRAY[1..6IOF INTEGER; 

definisce il simbolo V come vettore contenente interi. Il numero massimo di elemen¬ 
ti (la lunghezza) è 6. Agli elementi del vettore possono essere assegnati dei valori 
con istruzioni Pascal del tipo: 


V[l] 

= 2; 

V[2] 

= 5; 

V[3] 

= l; 

V[4] 

= 9; 

V[5] 

= 4; 

V[6] 

= 3; 


Il primo elemento del vettore si trova alla posizione V[1 ], il secondo alla posizione 
V|2] e l'ultimo a V[6]. Il primo elemento ha valore 2, il secondo 5 e l'ultimo 3. 

Dal momento che i vettori hanno una sola dimensione, non ha importanza se sono 
scritti orizzontalmente o verticalmente; talvolta però è necessario distinguere tra 
vettori riga, scritti orizzontalmente, e vettori colonna, scritti verticafmente. In questo 
caso, l’insieme: 
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' 2 ' 

5 

1 

9 

4 

3 


è un vettore colonna. 

Nel prossimo paragrafo studieremo le operazioni sui vettori e la loro implementa¬ 
zione in Pascal. 


Aritmetica dei vettori 

Le più comuni operazioni sui vettori sono: modulo moltiplicazione di uno scalare 
per un vettore, somma tra vettori, prodotto scalare, prodotto vettoriale. Consideria¬ 
mo ora queste operazioni una alla volta. 


Modulo (o ampiezza) 

L'ampiezza di un vettore è un valore scalare, che si ottiene estraendo la radice 
quadrata della somma dei quadrati degli elementi del vettore; per esempio, l'am¬ 
piezza del vettore Y: 

Y = [2 2 1) 


è uguale alla radice quadrata di 4 + 4 + 1, cioè 3. Il calcolo dell'ampiezza può esse¬ 
re programmato con l'istruzione Pascal: 

MAG : = SQRT(SQR(Y[11) + SQR(Y[2]) + SQR(YI3])) 


Moltiplicazione di uno scalare per un vettore 

Per moltiplicare un vettore y per uno scalare s, si moltiplica ogni elemento di y per 
s. Per esempio, v per 2 è uguale a 

2v = |4 10 2 18 8 6] 
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La seguente espressione Pascal genera un vettore V2 di cui ogni elmento è il dop¬ 
pio del corrispondente elemento del vettore V: 

FOR I : = 1 TO 6 DO V2[l]: = 2.0* V[l] 

Somma di vettori 

Due vettori si possono sommare uno all'altro se hanno lo stesso numero di ele¬ 
menti, o la stessa lunghezza; il risultato è un nuovo vettore di cui ogni elemento è la 
somma degli elementi corrispondenti nei vettori originali. Se 

a = |1 2 3] 

e 

b = 13 4 5| 

allora 

a + b = [4 6 81 

L’espressione corrispondente in Pascal è: 

FOR I : = 1 TO 3 DO C[l]: = A[l] + B[l] 

Prodotto scalare 

Il prodotto scalare tra due vettori della stessa lunghezza è uno scalare ottenuto 
sommando i prodotti di ogni elemento di un vettore per il corrispondente elemento 
dell'altro; il simbolo matematico per l’operazione di prodotto scalare è un punto tra i 
due operandi. 

a • b = (1)(3) + (2)(4) + (3)(5) = 26 

Il prodotto scalare è uguale al prodotto tra le ampiezze dei due vettori per il cose¬ 
no dell’angolo formato dai due: 

a • b = |a| |b| cos 6 
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Questa formula può essere usata per trovare l'angolo formato da due vettori. Per 
esempio, se l'angolo tra due vettori a e b é 10.7°: 

cose = 26/(3.742 • 7.071)= 0.9826 
Arccos 0.9826 = 10.7° 


Prodotto vettoriale 

Il prodotto vettoriale tra due vettori è un terzo vettore perpendicolare ai due, con 
ampiezza pari al prodotto delle due ampiezze per il seno dell’angolo compreso tra i 
due vettori originali; il simbolo dell'operazione è x: 

|a x b| = |a| |b| sin e 

Può essere calcolato con le seguenti istruzioni Pascal: 

CHI : = A|2]*B[3] - B[2]*A[3]; 

C|2] : = - A[1]*B[3! + B[1]*A[3); 

C|3] : = A[1)*B[2] - B[11*A[2]; 

Il prodotto vettoriale tra i due vettori a e b è il vettore [—2 4 -2]; la sua ampiezza 

è 4.9. 

Abbiamo visto come programmare in Pascal le principali operazioni aritmetiche 
sui vettori. In seguito vedremo come eseguire le stesse operazioni su matrici; prima 
dobbiamo studiare un particolare tipo di vettore, la stringa. 


Stringhe 

Le stringhe, insiemi di caratteri alfabetici e numerici (alfanumeriói), servono per 
rappresentare informazioni come nomi o indirizzi. In Pascal si possono definire dei 
vettori di stringa, che contengono nomi o indirizzi; inoltre la stringa deve essere defi¬ 
nita come array di caratteri. 

TYPE 

STRING = PACKED ARRAY[1 ,.15)OF CHAR; 

VAR 

ADDRESS : ARRAY[1..100]OF STRING; 

La dichiarazione VAR serve per definire la variabile ADDRESS come array conte¬ 
nente fino a 100 indirizzi. Nel Pascal standard, ogni stringa di indirizzo deve conte- 
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nere il numero di caratteri dichiarato (15 in questo caso), aggiungendo eventual¬ 
mente all’indirizzo effettivo degli spazi. Per esempio: 

ADDRESSll!: = ’1234 Oak St. 

ADDRESSll ]: = '2222 First St. 

Se il vostro Pascal prevede il tipo di stringa dinamica, la dichiarazione TYPE non è 
necessaria, e ogni stringa può avere una lunghezza qualsiasi, fino a un massimo 
prestabilito (in genere 80 caratteri). Per esempio: 

ADDRESSll I: = ’1234 Oak St.'; 

ADDRESSI21: = ’2222 First St.’; 

In ogni caso, sulle stringhe si possono eseguire operazioni di ordinamento e di al¬ 
tro tipo: 

IF ADDRESSll! <ADDRESS[J] THEN... 

Passiamo ora agli array a due dimensioni e alla loro rappresentazione in Pascal. 


MATRICI 

Un array a due dimensioni si chiama matrice; gli elementi di un simile insieme di 
dati sono sistemati in un rettangolo o in un quadrato, e possono essere considerati 
come un insieme dì righe orizzontali (vettori riga), o di righe verticali (vettori colon¬ 
na) . U na matrice di questo tipo può essere definita come un insieme monodimensio¬ 
nale di vettori. 

Ogni elemento della matrice è definito da una coppia di indici: l’indice di riga e 
l'indice di colonna. Consideriamo, ad esempio, la matrice: 


11 

X 12 

X 13 

X lm 

21 

X 22 

X 23 

x 2m 

31 

X 32 

X 33 

X 3m 

ni 

x n2 

x n3 

x nm_ 


che contiene n righe e m colonne. Viene sempre indicato prima l'indice di riga e poi 
quello di colonna. 

Una matrice è identificata dal suo nome, che può essere un singolo carattere al¬ 
fabetico, o una stringa di caratteri; gli indici vengono scritti in piccolo in basso a de- 
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stra del nome della matrice. Nei linguaggi di programmazione come COBOL, FOR¬ 
TRAN o BASIC, dove questa rappresentazione non è possibile, gli indici sono scritti 
tra parentesi; in Pascal e in APL si usano le parentesi quadre. Perciò, l’espressione 
X|2,3| in un programma Pascal indica l'elemento che si trova nella seconda riga e 
nella terza colonna di una matrice di nome X. 

Una matrice che ha lo stesso numero di righe e di colonne si dice quadrata. La 

diagonale principale di una matrice quadrata contiene gli elementi x n , x 22 , x 33 . 

x e talvolta viene indicata come semplicemente la diagonale. Una matrice quadra¬ 
ta che contiene tutti 1 nella diagonale principale, e 0 in tutte le altre posizioni si dice 
matrice unitaria. Per esempio: 

10 0 0 
0 10 0 

0 0 10 

0 0 0 ! 


è una matrice unitaria 4x4. 

Ora che abbiamo introdotto la terminologia di base per le matrici, possiamo pro¬ 
seguire con lo studio delle principali operazioni aritmetiche su matrici, e con la loro 
realizzazione in Pascal. 


Aritmetica delle matrici 

Cominciamo col definire la matrice trasposta, poi studieremo il prodotto scalare, 
l'addizione, la sottrazione e la moltiplicazione. 


La matrice trasposta 


Si ottiene scambiando le righe con le colonne di una matrice. L’elemento x i( 
diventa l'elemento x della matrice trasposta, che viene indicata con la lettera X T - 
Così, se 


X = 


'1 

4 

7 


2 3 

5 6 

8 9 
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allora 


1 


X J - 


2 

3 


4 7 

5 8 

6 9 


Notate che la trasposta di una matrice quadrata si ottiene ruotando la matrice ori¬ 
ginale intorno alla diagonale principale. 

Due matrici sono uguali se ogni elemento dell'una è uguale al corrispondente ele¬ 
mento dell’altra, cioè X = V se, per ogni elemento 

*/; " Vii 

Una matrice quadrata si dice simmetrica se è uguale alla sua trasposta; in questo 
caso ogni elemento x^ è uguale all'elemento x jr 


Prodotto di una matrice per uno scalare 

Se si moltiplica una matrice X per uno scalare s, ogni elemento della matrice ri¬ 
sulta moltiplicato per s. La seguente istruzione Pascal crea una matrice Y come ri¬ 
sultato del prodotto tra una matrice X e uno scalare S. 

FOR I : = 1 TO N DO 
FOR J: = 1 TO M DO 

Y[I,J] : = X(I,J]*S 


Addizione e sottrazione tra matrici 

Una matrice può essere sommata o sottratta ad un’altra matrice se entrambe 
hanno lo stesso numero di righe e di colonne. La somma delle matrici X e Y produce 
una matrice Z, che si rappresenta come: 

Z = X + Y 

Cosi, se: 

y _ x,, x, 2 x, 3 

— x 2 i x 22 x 23 
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Y = 

Yn Yi 2 

y 2 > v 22 

Y23J 


allora 




Z = 

'*11 + Yn 
.*21 + Yi 1 

X,2+ Yl2 

*22 + Y22 

X ,3 + y .3 

*23 + Y23 

Le istruzioni Pascal corrispondenti 

sono: 

FOR 1 

: = 1 TO N 

DO 


FOR J : = 1 TO 

M DO 



Z[I,J] : = X[I,J] + Y[I,J] 


Ogni elemento di Z è formato dalla somma dei corrispondenti elementi di X e Y. 
Analogamente, la sottrazione di una matrice da un’altra 

Z = X - Y 

viene eseguita sottraendo ogni elemento della seconda matrice dal corrispondente 
elemento della prima. 


Moltiplicazione tra matrici 

Una matrice può essere moltiplicata per un’altra se il numero delle righe della pri¬ 
ma è uguale al numero delle colonne della seconda; in questo caso le matrici si di¬ 
cono conformi. Dunque, se X è una matrice che contiene m righe e n colonne, e Y 
un'altra matrice che contiene n righe e p colonne, il prodotto: 

Z = X Y 

produce una matrice Z con m righe e p colonne, cioè con lo stesso numero di righe 
della matrice X e lo stesso numero di colonne della matrice Y. 

Ogni elemento di Z è formato da una somma di prodotti: gli elementi di una riga 
della matrice X sono moltiplicati ognuno per il corrispondente elemento della colon¬ 
na di Y, e i prodotti vengono sommati. 

Data una matrice X 



X 11 

X 12 

X = 

X 21 

X 22 


_ X 31 

X 3i 
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e 


X11 

X12 

X13 

X21 

X22 

X23 


la matrice Z = X Y sarà 


Z = 


*nXn +x, 2 y 21 
*2lXl1 + *22X 21 
_*31X11 + *32X21 


*11X12 + *12X22 
*21X12 + *22X22 
*31X12 + *32X22 


*11X13 + *12X23 
*21X13 + *22X23 
*31X13 + *32X21 


Ogni elemento jk di Z è formato dalla riga j della matrice X e dalla colonna k della 
matrice Y, secondo lo schema: 


Zjk = X/lXl/c + X/2X2IC + • • • + X/nXnk 


cosi, se 


X - 


1 

2 

3 


4 

5 

6 



10 11 12 

il prodotto 



47 

52 

57' 

N 

II 

X 

-< 

II 

64 

71 

78 


81 

90 

99 


è una matrice quadrata 3X3; il primo elemento, z è calcolato come: 

(1 ) (7) + (4) (10) = 47 

Il prodotto tra matrici non gode della proprietà commutativa, cioè il prodotto YX 
non è in genere uguale al prodotto XY. Invertendo l’ordine dei fattori, nell'esempio 
precedente, si ottiene una matrice 2x2 invece che 3x3: 


YX = 


'50 

68 


122 ' 

167 
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Notate che il prodotto scalare tra due vettori segue le regole della moltiplicazione 
tra matrici se il primo è un vettore colonna (cioè ha una sola colonna) e il secondo è 
u n vettore riga (cioè ha una sola riga). 

Abbiamo visto come il Pascal tratta vettori e matrici mediante array mono e bidi¬ 
mensionali; siamo ora in grado di scrivere un programma con le istruzioni che ab¬ 
biamo imparato. 


PROGRAMMA PASCAL: MOLTIPLICAZIONE TRA MATRICI 

Nel Capitolo 4 avremo bisogno di una routine che esegua la moltiplicazione tra 
matrici, per moltiplicare la trasposta della matrice X per l'originale, e il vettore y per 
la matrice x. Scriveremo ora questa routine. 

Il programma della figura 3.1 contiene la procedura SQUARE che esegue entram¬ 
be le operazioni; il programma principale genera la matrice X e il vettore y, e la pro¬ 
cedura SQUARE calcola la matrice A e il vettore g in base alle equazioni: 

X T X = A e yX = g 


PROGRAM AAATR1 ( OUTPUT); 

(* 8 Feb 81 *) 

(* Programma Pascal che esegue *) 

(* la moltiplicazione tra matrici #) 

CONST 

RAAAX = 9; 

CAAAX = 3; 

TYPE 

ARY = ARRAY[1.. RAAAX] OF REAI; 

ARYS = ARRAY[1 .-.CAAAX] OF REAL; 

ARY2 = ARRAY[1..RAAAX, 1..CAAAX] OF REAI; 
ARY2S = ARRAY[1..CAAAX, !..CAAAX] OF REAL; 


Figura 3.1 — Programma di moltiplicazione tra matrici (A = X T X, G = Y X). 
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VAR 

Y : ARY; 

G : ARYS; 

X : ARY2; 

A : ARY2S; 

NROW, NCOL : INTEGER; 

PROCEDURE GET_DATA(VAR X : ARY2; 

VAR Y : ARY; 

VAR NROW, NCOL : INTEGER); 

(* riceve i valori per nrow, ncol e le matrici x, y *) 

VAR I, J : INTEGER; 

BEGIN 

NROW := 5; 

NCOL : = 3; 

FOR I : = 1 TO NROW DO 
BEGIN 

X[l,l] := 1; 

FOR J : = 2 TO NCOL DO 
X[I,J]:= I * X[l,J — 1 ]; 

Y[l] := 2 * I 

END 

END (* procedure get_data *); 

PROCEDURE WRITE_DATA; 

(* stampa le risposte *) 


Figura 3.1 - Programma di moltiplicazione tra matrici (A = X T X, G = Y X) 
(segue). 
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VAR 

I, J : INTEGER; 

BEGIN 

WRITELN; 

WRITELN(' X Y'); 

FORI := 1 TONROWDO 

BEGIN 

FOR J := 1 TO NCOL DO 
WRITE(X[U]:7:1, ' '); 

WRITELN( ' : Y[l] :7:1) 

END; 

WRITELN (' A G'); 

FORI := 1 TO NCOL DO 

BEGIN 

FOR J := 1 TO NCOL DO 
WRITE( A[I,J]:7:1, ' '); 

WRITELN( ' ; G[l]:7:l) 

END 

END (* write_data *); 


PROCEDURE SQUARE(X : ARY2; 

Y : ARY; 

VAR A : ARY2S; 

VAR G : ARYS; 
NROW,NCOL : INTEGER); 

(* routine di moltiplicazione di matrici *) 
(* A = Transpone X volte X *) 

(* G = Y volte X *) 


Figura 3.1 — Programma di moltiplicazione tra matrici (A = X T X, G = Y X) 
(segue). 


49 




VAR 

I, K, L : INTEGER; 

BEGIN (* square *) 

FOR K : = 1 TO NCOL DO 

BEGIN 

FOR L := 1 TO K DO 
BEGIN 

A[K,L]:= 0; 

FOR I : = 1 TO NROW DO 

BEGIN 

A[K,L] := A[K,L] + X[I,L] * X[I,K]; 
IF K <> L THEN A[L,K] : = A[K,L] 

END 

END (x ciclo L x) 

G[K] : = 0; 

FOR I : = 1 TO NROW DO 
G[K] := G[K] + Y[l] * X[I,K] 

END (x ciclo K x) 

END (* square *); 

BEGIN (x programma principale x) 

GET_DATA (X, Y, NROW, NCOL); 

SQUARE(X, Y, A, G, NROW, NCOL); 

WRITE_DATA 

END. 


Figura 3.1 - Programma di moltiplicazione tra matrici (A = X T X, G = Y X) 
(segue). 

La matrice X contiene 5 righe e 3 colonne, e il vettore y contiene 5 elementi. 
Poiché la matrice risultante A è simmetrica, il calcolo può essere semplificato, in 
quanto ci saranno elementi come: 

All ,3] : = A(3,1] 
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La matrice A avrà 3 righe (come la trasposta di X) e 3 colonne (come X); il vetto¬ 
re g avrà 3 elementi. In effetti, sia y che g devono essere considerati come vettori ri¬ 
ga, cioè con una riga e 5 colonne; altrimenti, se vogliamo considerarli come vettori 
colonna, l’equazione di moltiplicazione dovrà essere scritta come: 

y T X = g T 

dove il trasposto del vettore colonna diventa vettore riga. 

Scrivete il programma della figura 3.1 ed eseguitelo; i risultati si presenteranno 
come in figura 3.2. 



DETERMINANTI 

Il determinante di una matrice quadrata X si indica con |X|, ed è un valore scalare 
Per una matrice 2x2, l'elemento in alto a sinistra viene moltiplicato per quello in bas¬ 
so a destra, e dal risultato viene sottratto il prodotto dell’elemento in basso a sinistra 
per quello in alto a destra: 

|X| = x n x 2 2 — x )2 x 2l 

Per esempio, il determinante della matrice: 

'1 2 

3 4 

è -2. 

Il determinante di matrici con dimensioni maggiori si ottiene moltiplicando ogni e- 
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lemento della prima riga per il determinante della matrice che si ottiene eliminando 
la riga e la colonna dell'elemento in questione. Una definizione ricorsiva è: 


1*1 = X„S„ - X 12 S ,2 + x 13 s, 3 1) n+, x, n s,„ 


dove x 11t x 12 , sono gli elementi della prima riga della matrice X e s 1n è n 
determinante della matrice che si ottiene eliminando la riga 1 e la colonna n. Il de¬ 
terminante della matrice: 


'1 2 3 
4 5 6 
7 8 0 


è uguale a: 



Il passo successivo consiste nel calcolare i minori: 


5 6 


4 6 


4 5 

8 0 


7 0 


7 8 


secondo la procedura: 

1(5 • 0 - 8 ■ 6) -2 (4 • 0 - 7 • 6) + 3(4 • 8 - 7 • 5) 


Il valore del determinante è, in questo caso, 27. Se ogni elemento di una riga o di 
una colonna è 0, il determinante è 0. Se due righe o due colonne sono identiche, il 
determinante è 0. 

Abbiamo visto come calcolare il determinante di una matrice. Poiché useremo i 
determinanti nei prossimi capitoli, studiamo ora un programma per calcolarli. 


PROGRAMMA PASCAL: DETERMINANTI 

In figura 3.3 c'è un programma per calcolare il determinante di una matrice 3x3. 
La procedura GET_DATA chiede all'utente di inserire gli elementi della matrice, e la 


52 
















procedura DETER calcola il determinante. Scrivete il programma ed eseguitelo. Gli 
elementi della matrice sono inseriti riga per riga, cioè nell’ordine: 

All.H. All,2], All,3], A12.11, A[2,2], ... 


alla fine compare sul video il valore del determinante, seguito dalla domanda «Anco¬ 
ra?»; rispondete Y se volete calcolare il determinante di un'altra matrice. 


PROGRAM DETERM(INPUT, OUTPUT); 

(* 8 Feb 81 #) 


(* Programma Pascal che calcola *) 

(# il determinante di una matrice 3-per-3 

*) 

TYPE 

ARY2 = ARRAY[1..3, 1..3] OF REAL; 


VAR 

A : ARY2; 

N : INTEGER; 

YESNO : CHAR; 

D : REAL; 


PROCEDURE GET_ DATA(VAR A : ARY2; 

VAR N : INTEGER); 

(* riceve i valori di n e delle matrici x, y *) 

VAR 

1, J : INTEGER; 


BEGIN 

N:=3; 

WRITELN; 



figura 3.3 — Determinante di una matrice 3x3. 
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FOR l:= 1TONDO 
BEGIN 

FOR J := 1 TONDO 
BEGIN 

WRITE( J:3, '); 

READLN( A[I,J]) 

END (x ciclo j x) 

END (x ciclo i x) 

WRITELN; 

FOR l:= 1 TO N DO 
BEGIN 

FOR J:= 1 TO N DO 

WRITE( A[I,J] :7:4, ' '); 

WRITELN 

END; 

WRITELN 

END (* procedure gel _data *); 

FUNCTION DETER (A : ARY2) : REAL; 

(x calcola il determinante di una matrice 3-per-3 x) 

VAR 

SUM : REAL; 

BEGIN 

SUM := A[l,l] * (A[2,2]*A[3,3] - A[3,2]*A[2,3]) 
- A[l,2] * (A[2,1]*A[3,3] - A[3,1 ]*A[2,3]) 
+ A[l,3] * (A[2,1]*A[3,2] - A[3,1]*A[2,2]); 
DETER : = SUM 

END; 


Figura 3.3 — Determinante di una matrice 3x3 (segue). 
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BEGIN (# programma principale *) 

REPEAT 

GET_DATA (A, N); 

D : = DETER(A); 

WRITELN( Il determinante è , D); 
WRITELN; 

WRITEI' Ancora?'); 

READLN( YESNO) 

UNTIL (YESNO <> 'Y' ) AND (YESNO <> 'y') 

END 


Figura 3.3 — Determinante di una matrice 3x3 (segue). 


MATRICE INVERSA E DIVISIONE TRA MATRICI 

L’inversa di una matrice non singolare si scrive come 

x - 1 


L'inversa di una matrice singolare non è definita. Il prodotto di una matrice per la 
sua inversa è la matrice unitaria: 

XX- 1 = I 

L'inversione di matrice è analoga alle altre operazioni di inversione, poiché l'in¬ 
versa di una matrice inversa è la matrice originale. 

(x-v = x 

Quando l’operazione viene effettuata con un programma su di un calcolatore, può 
capitare che la precedente formula non sia verificata a causa degli errori di arroton¬ 
damento. 

La divisione tra matrici viene eseguita con una combinazione di inversioni e molti- 
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plicazioni. Se dobbiamo dividere la matrice X per la matrice Y, eseguiamo dapprima 
un'inversione su Y, e moltiplichiamo il risultato per X. L’operazione viene scritta co¬ 
me: 


XY ' 1 

L’inversione di matrici può essere usata per trovare la soluzione di un sistema di 
equazioni lineari. Se abbiamo una matrice di coefficienti A e un vettore costante y, 
vogliamo trovare un vettore b tale che: 

Ab = y 

La soluzione si ottiene dal prodotto dell'inversa della matrice A per il vettore co¬ 
stante y (in questo ordine). 

A y = b 

Poiché la soluzione dei sistemi di equazioni lineari è l'argomento del Capitolo 4, ri¬ 
mandiamo a quel punto lo studio di un programma per implementarla. 


SOMMARIO 

Abbiamo visto come rappresentare in Pascal vettore e matrici, e come eseguire 
operazioni aritmetiche su di essi. Abbiamo studiato due importanti programmi, uno 
per eseguire la moltiplicazione tra matrici, e l'altro per calcolare i determinanti. Use¬ 
remo questi programmi nei prossimi capitoli. 
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CAPITOLO 4 


RISOLUZIONE DI SISTEMI 
DI EQUAZIONI LINEARI 


INTRODUZIONE 

In questo Capitolo studieremo la risoluzione di un sistema di equazioni lineari, con 
la regola di Cramer, il metodo di eliminazione di Gauss, il metodo di eliminazione di 
Gauss-Jordan e quello di Gauss-Seidel. Inoltre affronteremo il problema dei sistemi 
mal-condizionati generando un insieme di matrici di Hilbert. Svilupperemo anche dei 
programmi Pascal su questi argomenti, tra cui uno per risolvere un sistema di equa¬ 
zioni con diversi vettori di termini noti e con coefficienti complessi; infine presente¬ 
remo un programma che produce la "miglior curva interpolante" di un sistema pre¬ 
determinato. 

Cominceremo col descrivere le equazioni lineari e un semplice sistema di equa¬ 
zioni. 


EQUAZIONI LINEARI E RISOLUZIONE DI SISTEMI 

Un’equazione lineare è una somma di termini del tipo: 

Ax + By + Cz = D 


In questa equazione x, y e z sono variabili mentre A, B, C e D sono costanti. In o- 
gni termine non può comparire più di una variabile, alla prima potenza. Espressioni 
come: 


2x 2 + 3y 2 = 4 
sin(x) + log (y) = 9 
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e 


xy = 2 

sono equazioni non lineari nelle variabili x e y. 

Un’equazione del tipo 

—+ y log (B) = p 
A 

è lineare nelle variabili x e y, mentre diventa non lineare se consideriamo A e B co¬ 
me variabili e x, y e p come termini noti. 

Equazioni lineari si incontrano molto spesso in tutti i rami della scienza e dell’in¬ 
gegneria. ed è quindi necessario conoscere dei metodi efficaci di risoluzione. Quan¬ 
do ci sono diverse incognite e uno stesso numero di equazioni indipendenti, esiste 
un'unica soluzione. In questo capitolo studieremo diversi metodi di risoluzione di un 
sistema di equazioni lineari; i metodi di soluzione di equazioni non lineari sono di¬ 
scussi in altri capitoli. 

Le due equazioni lineari: 

x -2 y = 1 
2x + y = 7 

rappresentano due rette nel piano x-y; la soluzione di questo sistema rappresenta 
l'intersezione tra le due rette, e una soluzione grafica del problema potrebbe otte¬ 
nersi tracciando il grafico delle rette e trovando le coordinate del punto di intersezio¬ 
ne. 

La prima equazione ha un’intercetta sull'asse y di -0.5 e una tangente di 0.5, co¬ 
me si vede riscrivendo l'equazione nella forma: 

y = -0.5 + 0.5x 


La seconda equazione ha un’intercetta sull’asse y di 7 e una tangente di —2: 
y = 7 — 2x 

Le due rette si intersecano nel punto: 
x = 3, y = 1 


che rappresenta la soluzione del sistema; possiamo eseguire una verifica sostituen¬ 
do i valori di x e y precedenti nelle equazioni originali. 
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Un altro metodo è quello di moltiplicare la seconda equazione per 2 e sommarla 
alla prima. L'equazione risultante contiene solo la variabile x, e può quindi essere ri¬ 
solta direttamente. 

x — 2 y = 1 

4x + 2y = 14 
5x = 15 o x = 3 

Il valore di x può ora essere sostituito in una delle equazioni originali per trovare il 
corrispondente valore di y. Entrambi questi metodi risolvono il sistema delle due e- 
quazioni, ma sono in genere noiosi da applicare per un sistema con più equazioni. 

Nel prossimo paragrafo studieremo un metodo di risoluzione più sofisticato, che 
fa uso di matrici e vettori. 


la regola di cramer 


È un metodo comodo per risolvere sistemi di due o tre equazioni; è particolarmen¬ 
te potente per risolvere il sistema a mano o con un calcolatore tascabile. Le equa¬ 
zioni devono essere scritte con tutte le incognite da una parte dell'uguale, e i termini 
noti dall’altra. I termini contenenti la stessa incognita sono allineati in verticale. Le 
due equazioni del paragrafo precedente erano inizialmente scritte cosi. 

Con i coefficienti delle incognite si forma una matrice che prende il nome di matri¬ 
ce dei coefficienti; i termini noti formano invece un vettore a parte. Con le nostre 
due equazioni avremmo una matrice A e un vettore z. 


A = 


'1 

2 


-2 

1 


z = 


1 

7 


La soluzione è data dalle seguenti equazioni: 


x = 


Di 

D 



dove D è il 


determinante della matrice dei coefficienti: 



-2 

1 


= (IMI) - (2)(—2) 


5 


e D, è il determinante della matrice che si ottiene sostituendo gli elementi del 
vettore z nella prima colonna della matrice, corrispondente all'Incognita x: 


D, 


1 

7 



= (IMI) - (7)(— 2) - 


15 


59 



Analogamente D ? S j ottiene sostituendo il vettore z nella seconda colonna della 
matrice: 


D 2 = 


1 

2 


1 

7 


= (1)(7) - (2)(1) = 5 


La soluzione è: 



Naturalmente alcuni sistemi di equazioni hanno più di una soluzione; vedremo ora 
come risolverli con la regola di Cramer. 


Dipendenza lineare 

Se il determinante della matrice dei coefficienti è zero, non esiste un'unica solu¬ 
zione. Questa situazione si verifica quando le equazioni sono linearmente dipenden¬ 
ti, cioè una di esse può essere ottenuta da una combinazione delle altre. In questo 
caso la matrice si dice singolare. Come esempio di dipendenza lineare, consideria¬ 
mo le due equazioni: 

x + y = 5 
2x + 2y = 2 

La matrice dei coefficienti è: 

'1 1 ' 

2 2 

con determinante zero. In effetti le due equazioni rappresentano due rette parallele, 
che, ovviamente, non hanno punti di intersezione. Non esiste dunque soluzione. 
Consideriamo un altro esempio: 

x + y = 5 
2x + 2y = 10 

la matrice dei coefficienti di queste due equazioni è uguale alla precedente, ma in 
questo caso le due rette si sovrappongono, e hanno quindi un numero infinito di pun¬ 
ti di intersezione; il sistema ammette infinite soluzioni. 

Consideriamo ora delle applicazioni di questo metodo alla risoluzione di sistemi di 
due o tre equazioni lineari. Nel prossimo paragrafo risolveremo un problema con un 
programma in Pascal che abbiamo presentato nel Capitolo 3. 
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Esempio: Un circuito elettrico in corrente continua 

Un interessante problema pratico, che comporta la soluzione di un sistema di e- 
quazioni, si presenta nello studio di un circuito elettrico. Consideriamo la rete di re¬ 
sistenze e di generatori di tensione continua della figura 4.1, che ha quattro nodi e 
sei rami. Sul lato sinistro della rete c'è un generatore di tensione di 20 volt, su quello 
destro un generatore di 5 volt; inoltre ci sono sei resistenze di valore noto. 

Si vogliono determinare i valori delle correnti che circolano nei vari rami, e quelli 
delle cadute di tensione ai capi delle resistenze. I primi si trovano risolvendo un si¬ 
stema di sei equazioni lineari, oppure, semplificando il problema considerando le 
correnti che circolano nelle tre maglie, e risolvendo quindi un sistema di tre equazio¬ 
ni; poi la corrente di ogni ramo si ricava da quella della maglia di cui il ramo fa parte. 


7Q 



Figura 4.1 — Un circuito con resistenze e generatori di tensione continua. 

La corrente nella maglia irt basso a sinistra è indicata con I quella in basso a 
destra con I e quella in alto con l 3 . Le equazioni delle tre maglie si ricavano dalla 
legge di Kirchoff, considerando positive le correnti che percorrono la maglia in sen¬ 
so orario. 

13 I, — 8 l 2 — 3 l 3 - 20 = 0 (maglia in basso a sinistra) 

—8 •, + 10 l 2 — l 3 + 5 = 0 (maglia in basso a destra) 

—3 1,— 1 2 11 1 3 =0 (maglia in alto) 
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La matrice dei coefficienti e il vettore dei termini noti corrispondenti sono: 


13 

-8 

-3 

-8 

10 

- 1 

-3 

-1 

11 


Applicando la regola di Cramer troviamo: 



13 

-8 

-3 


20 

-8 

-3 

D = 

-8 

10 

-1 

D, = 

-5 

10 

-1 


-3 

-1 

11 


0 

-1 

11 



13 

20 

-3 


13 

-8 

20 

d 2 = 

-8 

-5 

-1 

D,= 

-8 

10 

-5 


-3 

0 

11 


-3 

-1 

0 


Questi determinanti si calcolano usando il programma DETERM della figura 3.3 
del Capitolo precedente; le correnti risultanti sono: 


P, 1725 

D 575 


3 amps 


, 2 _ _Dj_ _ 1150 
D 575 


2 amps 


/, = _D 3 _ = Ì75 

D 575 


1 amp 


Il programma DETERM ci dà dei risultati corretti, ma non è semplice da usare; 
per ognuno dei quattro determinanti bisogna inserire nove numeri, per un totale di 
36 dati. 

Studieremo adesso un programma realizzato per applicare la regola di Cramer al¬ 
la risoluzione di sistemi di equazioni lineari. 
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PROGRAMMA PASCAL: UN ELEGANTE USO 
della REGOLA DI CRAMER 

Il programma della figura 4.2 semplifica notevolmente la procedura di risoluzione; 
le operazioni matematiche in realtà sono le stesse di prima, ma in questa versione si 
devono inserire solo dodici numeri, nove per i coefficienti e tre per il vettore dei ter¬ 
mini noti. 


Esecuzione del programma 

Scrivete il programma della figura 4.2 ed eseguitelo; i coefficienti e il termine noto 
della prima equazione sono inseriti sulla prima linea; i corrispondenti valori della se¬ 
conda equazione sono sulla seconda linea, e quelli della terza sulla terza linea. La¬ 
sciate uno spazio dopo ogni coefficiente, e premete RETURN dopo il termine noto. I 
dati di ingresso si presenteranno così; 

Soluzione di un sistema di equazioni con la regola di Cramer 

Equazione 1 

1 : 13 2 : -8 3 : -3 , C : 20 

Equazione 2 

1 : -8 2 : 10 3 : -1 , C : -5 

Equazione 3 

1 : -3 2 : -1 3 : -11 , C : 0 


I dati di ingresso verranno poi nuovamente stampati, seguiti dalla soluzione: 


13.0000 

- 8.0000 

-3.0000 

3.00000 


- 8.0000 

10.0000 

- 1.0000 

2.00000 


-3.0000 

- 1.0000 

11.0000 

1.00000 


20.000 

-5.0000 

0.0000 


A questo punto apparirà la domanda 
Ancora? 


a cui dovete rispondere Y se volete risolvere un altro sistema, N in caso contrario. 
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I dati di ingresso possono anche essere inseriti uno per riga, premendo RETURN 
dopo ogni dato; in questo caso si presenteranno nel modo seguente: 

Equazione 1 

1 : 13 

2 : -8 

3 : -3 

C : 20 

Equazione 2 
1 : -8 
2 : 10 
3 : -1 

C : -5 

Equazione 3 

1 : -3 

2 : -1 

3 : 11 

C : 0 

IL METODO DI ELIMINAZIONE DI GAUSS 

La regola di Cramer è un buon metodo di risoluzione dei sistemi con due o tre e- 
quazioni lineari, soprattutto quando devono essere risolti "a mano". D'altra parte, il 
tempo di calcolo aumenta con la quarta potenza della dimensione della matrice; ri¬ 
solvere un sistema di 6 equazioni richiederà, dunque, un tempo 16 volte maggiore di 
quello necessario per un sistema di 3 equazioni. Il metodo di eliminazione di Gauss 
è più efficace; il tempo di calcolo cresce con la terza potenza del numero di equa¬ 
zioni, e quindi per risolvere un sistema di sei equazioni ci vorrà un tempo 8 volte su¬ 
periore a quello necessario per un sistema di tre equazioni. 

II metodo di eliminazione di Gauss si può facilmente implementare su di un calco¬ 
latore, mentre non si presta alla risoluzione manuale, poiché usa una tecnica leg¬ 
germente complicata, che richiede molte moltiplicazioni, divisioni e sottrazioni; que¬ 
sto implica un’inevitabile perdita di precisione che impone un limite al numero di e- 
quazioni del sistema. Studiamo ora passo passo questo metodo. 


Il metodo di Gauss 

Le equazioni originali sono manipolate in modo che la matrice dei coefficienti 
contenga un 1 in ogni posizione della diagonale principale, e uno 0 in tutte le posizio¬ 
ni in basso a sinistra. 
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PROGRAM SIAAQ1 (INPUT,OUTPUT); 

(* 12 Feb 81 *) 

(* Programma Pascal che risolve un «) 

(* sistema di tre equazioni con la regola di Cramer *) 

CONST 

RAAAX = 3; 

CAAAX = 3; 

TYPE 

ARYS = ARRAY[1 ..CAAAX] OF REAL; 

ARY2S = ARRAY[1.. RAAAX, 1.. CAAAX] OF REAL; 

VAR 

Y, COEF : ARYS; 

A : ARY2S; 

N : INTEGER; 

YESNO : CHAR; 

ERROR : BOOLEAN; 

PROCEDURE GET _ DATA( VAR A : ARY2S; 

VAR Y : ARYS; 

VAR N : INTEGER); 

(* riceve i valori per n e per le matrici a, y *) 

VAR 

I, J : INTEGER; 

BEGIN (* procedure get_data *) 

WRITELN; 

N : = RAAAX; 


Figura 4.2 — Risoluzione di un sistema di tre equazioni lineari con la regola di 
Cramer. 
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FORI := 1 TONDO 
BEGIN 

WRITELN ( Equazione , 1:3); 

FOR J := 1 TO N DO 
BEGIN 

WRITE( J:3, '); 

READ( A[I,J]) 

END; 

WRITE( C: '); 

READLN (Y[l]) 

END; 

WRITELN; 

FOR I: = 1 TO N DO 
BEGIN 

FOR J:= 1 TONDO 

WRITE( A[I,J] :7:4, ' '); 
WRITELN( ' : Y[l] :7:4) 

END; 

WRITELN 

END (* procedure get_data *); 

PROCEDURE WRITE_DATA; 

(# stampa i risultati *) 

VAR 

I : INTEGER; 

BEGIN (* write_data *) 

FORI := 1 TONDO 

WRITE( COEF[l] :9:5); 

WRITELN 

END (* write_data *); 


Figura 4.2 — Risoluzione di un sistema di tre equazioni lineari con la regola di Cra- 
mer (segue). 
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PROCEDURE SOLVE( A : ARY2S; 

Y : ARYS; 

VAR COEF : ARYS; 

N : INTEGER; 

VAR ERROR : BOOLEAN); 

VAR 

B : ARY2S; 

I, J : INTEGER; 

DET : REAL; 

FUNCTION DETER (A : ARY2S) : REAL; 

(* calcola il determinante di una matrice 3-per-3 *) 


SUM : REAL; 

BEGIN (* function deter *) 

SUM := A[1,l] * (A[2,2]*A[3,3] - A[3,2]*A[2,3]) 
- A[l,2] * (A[2,1]*A[3,3] - A[3,1]*A[2 ( 3]) 
+ A[l,3] * (A[2,1 ]*A[3,2] - A[3,1]*A[2,2]); 
DETER := SUM 
END (* function deter *); 

PROCEDURE SETUP (VAR B : ARY2S; 

VAR COEF : ARYS; 

J : INTEGER); 

VAR 

I : INTEGER; 


Figura 4.2 — Risoluzione di un sistema di tre equazioni lineari con la regola di Cra- 
mer (segue). 
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BEGIN (* setup *) 

FORI:= 1 TO N DO 
BEGIN 

B[U]:= Y[l]; 

IF J > 1 THEN B[I,J —1] := A[l,J — 1 ] 

END; 

COEF[J] : = DETER(B)/DET 
END (* setup *); 

BEGIN (* procedure solve *) 

ERROR := FALSE; 

FOR I : = 1 TO N DO 
FOR J:= 1TO N DO 

B[I,J]:= A[I,J]; 

DET := DETER(B); 

IF DET = 0.0 THEN 
BEGIN 

ERROR := TRUE; 

WRITELN( ERRORE: matrice singolare ) 

END 

ELSE 

BEGIN 

SETUP( B, COEF, 1 ); 

SETUP( B, COEF, 2); 

SETUP( B, COEF, 3) 

END (* else *) 

END (* procedure solve *); 


Figura 4.2 — Risoluzione di un sistema di tre equazioni lineari con la regola di Cra- 
mer (segue). 
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BEGIN (* programma principale *) 

WRITELN; 

WRITELN ( Soluzione di un sistema con la regola di Cramer ); 

REPEAT 

GET_DATA (A, Y, N); 

SOLVE (A, Y, COEF, N, ERROR); 

IF NOT ERROR THEN WRITE_DATA; 

WRITELN; 

WRITE('Ancora?'); 

READLN( YESNO) 

UNTIL (YESNO <> 'Y' ) AND (YESNO <> '/) 

END. 


Figura 4.2 — Risoluzione di un sistema di tre equazioni lineari con la regola di Cra¬ 
mer (segue). 

Questo metodo usa fondamentalmente due tipi di operazioni su matrici: la molti¬ 
plicazione per uno scalare e la addizione. Ogni equazione può essere moltiplicata 
per una costante, senza cambiare il risultato; ciò equivale a moltiplicare tutti gli ele¬ 
menti di una riga della matrice dei coefficienti, e l’elemento corrispondente del vet¬ 
tore dei termini noti, per lo stesso valore. Ogni equazione può anche essere sostitui¬ 
ta dalla somma di due equazioni. 

Nelle pagine seguenti mostreremo l’uso del metodo di eliminazione di Gauss sulle 
equazioni che abbiamo ricavato dal circuito elettrico di figura 4.1. Inizialmente ab¬ 
biamo una matrice dei coefficienti e un vettore dei termini noti come quelli seguenti: 


’ 13 

-8 

-3 


20 

-8 

10 

-1 


-5 

-3 

- 1 

11 

• 

0 


La prima variabile viene eliminata da tutte le equazioni tranne la prima, e le equa¬ 
zioni vengono manipolate in modo da avere 1 come primo elemento, e 0 in tutti gli 
altri, nella prima colonna. L’operazione viene eseguita nel modo seguente: tutti gli e- 
lementi della prima riga vengono divisi per il primo (il pivot), ottenendo cosi un 1 nel¬ 
la prima posizione della diagonale principale. La prima equazione diventa: 

[1 -0.61 -0.23] [1.5] 
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Con una combinazione delle prime due righe, la prima incognità è eliminata dalla 
seconda colonna, precisamente moltiplicando la prima riga per il primo elemento 
della seconda, e sottraendola poi dalla seconda; la nuova seconda riga è ora: 

[0 5.1 -2.8] [7.3] 

Analogamente, la prima variabile viene eliminata dalla terza riga; a questo punto 
le tre equazioni sono: 

'1 -0.61 -0.23] [1.5 

0 5.1 -2.8 7.3 

0 -2.8 10.3 J [4.6 

Il passo successivo consiste nel produrre un 1 nella seconda posizione della se¬ 
conda riga; gli elementi della seconda riga sono divisi per il secondo elemento. Poi 
la seconda incognita viene eliminata dalla terza equazione generando uno 0 nella 
seconda posizione, proprio sotto il pivot. Le tre equazioni ora si presentano come: 


'1 

-0.61 

-0.23' 

'1.5 

0 

1 

-0.56 

1.4 

0 

0 

8.7 

8.7 


L'ultimo passo di questa fase consiste nell’ottenere un 1 nella terza posizione del¬ 
la terza equazione, dividendo tutti gii elementi per il terzo: 

-0.61 -0.23] [1 

1 -0.56 1 

0 il 


Le tre equazioni originali si sono trasformate in: 

x - 0.61y - 0.23z = 1.5 
y - 0.56z = 1.4 
z = 1 


La terza equazione può essere risolta immediatamente: 


z = 1 


La seconda equazione diventa: 


y = 1.4 + 0.56z 

Sostituendo il valore di z, si trova y = 2; sostituendo y e z nella prima equazione si 
trova x = 3. Questo metodo di calcolo prende il nome di “sostituzione a ritroso”. 




70 



Una maggior precisione col metodo di Gauss 


La precisione del metodo di eliminazione di Gauss può essere migliorata scam¬ 
biando fra di loro le righe, in modo che l'elemento col maggiore valor assoluto diven¬ 
ti il pivot. Supponiamo per esempio che le tre equazioni precedenti siano scritte in 


altro ordine: 



‘-3 -1 

11' 


13 -8 

-3 


-8 10 

-1 



0" 


20 


-5 


La prima equazione dovrebbe essere divisa per -3 per ottenere 1 nella prima po¬ 
sizione; ma il risultato sarà più preciso se scambiamo tra loro la prima e la seconda 
equazione, in modo da avere 13 come pivot. Dopo avere eliminato la prima incogni¬ 
ta dalla seconda e dalla terza equazione, si ottiene: 


'1 -0.61 -0.23 


'1.5 

0 -2.8 10.3 


4.6 

0 5.1 -2.8 


7.3 


A questo punto si potrebbero scambiare tra loro la seconda e la terza equazione, 
per avere un numero maggiore (5.1) come pivot. 

C'è un altro motivo per cui conviene scambiare tra loro le righe: se compare uno 
zero sulla diagonale principale, la riga non può essere divisa per il pivot. Scambian¬ 
do la riga con una seguente lo zero non occuperà più la posizione del pivot. 

Ora che abbiamo seguito passo passo il metodo di eliminazione di Gauss, per la 
verità un po’ noioso da applicare a mano, sapremo apprezzare l'eleganza del pro¬ 
gramma Pascal del prossimo paragrafo. 


PROGRAMMA PASCAL: IL METODO DI ELIMINAZIONE DI GAUSS 

Il programma di figura 4.3 risolve un sistema di equazioni lineari (otto al massi¬ 
mo) con il metodo di eliminazione di Gauss; il numero di equazioni può essere au¬ 
mentato modificando le variabili MAXR e MAXC, definite all'inizio del programma. 
Scrivetelo ed eseguitelo. 

Esecuzione del programma 

Questo programma è simile al precedente, ma comincia col chiedere il numero di 
equazioni; rispondete con un numero da 2 a 8, e premete RETURN. Inserite i coeffi¬ 
cienti di ogni equazione e i termini noti, un’equazione per riga; lasciate uno spazio 
dopo ogni numero e premete RETURN alla fine di ogni linea. Inserite i valori del si¬ 
stema di equazioni precedente e controllate che i risultati siano [3 2 1], 

L’uscita del programma si presenterà come nella figura 4.4. 
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PROGRAM GAUS(INPUT, OUTPUT); 

(12 Feb 81) 

(* Programma Pascal che esegue la soluzione *) 

(# di un sistema per mezzo della eliminazione Gaussiana *) 
(* la procedura GAUSS è inclusa *) 

CONST 

MAXR = 8; 

MAXC = 8; 

TYPE 

ARY = ARRAY[1..AAAXR] OF REAL; 

ARYS = ARRAY[1..AAAXC] OF REAL; 

ARY2S = ARRAY[1 ..AAAXR, 1..AAAXC] OF REAL; 

VAR 


Y 

ARYS; 

COEF 

ARYS; 

A 

ARY2S; 

N, M 

INTEGER; 

ERROR 

BOOLEAN; 


PROCEDURE GET_DATA(VAR A : ARY2S; 

VAR Y : ARYS; 

VAR N, M : INTEGER); 

(* riceve i valori per n e per le matrici aey i) 

VAR 

I, J : INTEGER; 


Figura 4.3 — Risoluzione di sistemi con il metodo di eliminazione di Gauss. 
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begin 

WRITELN; 

REPEAT 

WRITE ( Quante equazioni? ); 
READLN( N); 

M := N 

UNTIL N < MAXR; 

IF N > 1 THEN 
BEGIN 

FOR I := 1 TO N DO 
BEGIN 

WRITELN ( Equazione , 1:3); 

FOR J := 1 TONDO 
BEGIN 

WRITE( J:3, '); 

READ( A[I,J]) 

END; 

WRITE( C: '); 

READ (Y[l]); 

READLN (* linea bianca #) 

END; 

WRITELN; 

FOR l:= 1 TO N DO 
BEGIN 

FOR J:= 1 TOM DO 

WRITE( A[I,J] .7:4, ' '); 
WRITELN( ' : Y[l] :7:4) 

END; 

WRITELN 

END (* if n>l *) 

END (* procedure get_data *); 


Figura 4.3 — Risoluzione di sistemi con il metodo di eliminazione di Gauss (se¬ 
gue). 
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PROCEDURE WRITE _ DATA; 

(# stampa i risultati *) 

VAR 

I : INTEGER; 

BEGIN 

FOR I := 1 TOM DO 

WRITE( COEF[l] :9:5); 

WRITELN 

END (* write_data *); 

PROCEDURE GAUSS 

(A : ARY2S; 

Y ; ARYS; 

VAR COEF : ARYS; 

NCOL : INTEGER; 

VAR ERROR : BOOLEAN); 

(* soluzione di una matrice per mezzo della Eliminazione Gaussiana #) 

(* 8 Feb 81 #) 

( * Adattata da Gilder * ) 

VAR 

B : ARY2S (* matrice di lavoro, nrow.ncol *); 

W : ARYS (* matrice di lavoro, ncol long *); 

I, J, 11, K, L, 

N : INTEGER; 

HOLD, SUM, T, AB, BIG : REAL; 

BEGIN 

ERROR : = FALSE; 

N : = NCOL; 


Figura 4.3 - Risoluzione di sistemi con il metodo di eliminazione di Gauss (se¬ 
gue). 
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FOR I := 1 TO N DO 

BEGIN (* copia nelle matrici di lavoro *) 

FORJ := 1 TONDO 

B[I,J]:= A[I,J]; 

W[l] := Y[l] 

END; 

FORI := 1 TON - 1 DO 
BEGIN 

BIG := ABS(B[I,I]); 

L:= I; 

Il := I + 1; 

FOR J := Il TO N DO 

BEGIN (* ricerca l'elemento maggiore *) 

AB := ABS(B[J,I]); 

IF AB > BIG THEN 
BEGIN 

BIG := AB; 

L := J 
END 

END; 

IF BIG = 0.0 THEN ERROR := TRUE 

ELSE 
BEGIN 

IFLO I THEN 
BEGIN 

(* scambia le righe per porre #) 

(# l'elemento maggiore sulla diagonale *) 

FOR J := 1 TONDO 
BEGIN 

HOLD := B[l,J]; 

B[L,J]:=B[I,J]; 

B[I,J] := HOLD 

END; 

Figura 4.3 — Risoluzione di sistemi con il metodo di eliminazione di Gauss (se¬ 
gue). 
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HOLD : = W[L]; 

W[L] := W[l]; 

W[l] := HOLD 
END (* if LOi *); 

FOR J := Il TON DO 
BEGIN 

T := B[J,I]/B[I,I]; 

FOR K := Il TONDO 

B[J,K] := B[J,K] - T * B[I,K]; 

W[J] := W[J] - T * W[l] 

END (* ciclo j #) 

END (* if big *) 

END; (* ciclo i *) 

IF B[N,N] = O.OTHEN ERROR := TRUE 

ELSE 

BEGIN 

COEF[N] := W[N]/B[N,N]; 

I := N — 1; 

(* sostituzione inversa *) 

REPEAT 

SUM := 0.0; 

FOR J : = 1 +1 TO N DO 

SUM := SUM + B[l, J] * COEF[J]; 

COEF[l] : = (W[l] - SUM)/B[I,I]; 

I := I — 1 

UNTIL I = 0 

END (* IF b[n,n] = 0 *); 

IF ERROR THEN WRITELN ( ERRORE: Matrice singolare ) 

END (* gauss *); 

BEGIN (* programma principale *) 

WRITELN; 

WRITELN( Soluzione di un sistema con l'eliminazione di Gauss'); 


Figura 4.3 — Risoluzione di sistemi con il metodo di eliminazione di Gauss (se¬ 
gue). 
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REPEAT 

GET_DATA (A, Y, N, M); 

IF N > 1 THEN 
BEGIN 

GAUSS (A, Y, COEF, N, ERROR); 

IF NOT ERROR THEN WRITE_DATA 

END 

UNTIL N < 2 
END 


Figura 4.3 — Risoluzione di sistemi con il metodo di eliminazione di Gauss (se¬ 
gue). 


Soluzione di un sistema con l'eliminazione di Gauss 

Quante equazioni? 3 
Equazione 1 


1 : 13 
Equazione 

2: -8 

2 

3: -3 , C: 

20 


1 : -8 
Equazione 

2: 10 

3 

3: -1 , C: 

-5 


1: -3 

2: -1 

3: 11 , C: 

0 


13.0000 

-8.0000 

-3.0000 


20.0000 

8.0000 

10.0000 

-1.0000 


-5.0000 

3.0000 

-1.0000 

11.0000 


0.0000 


3.00000 2.00000 1.00000 


Figura 4.4 — Risultati del programma di risoluzione del circuito elettrico con il me¬ 
todo di eliminazione di Gauss. 
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Dopo avere trovato le soluzioni, il programma riparte dall'inizio; questa volta tro¬ 
verete la soluzione delle seguenti tre equazioni, e ne prenderete nota perchè ci ser-‘ 
vira in seguito. 


'1 1 

2 1 

3 1 



Riprenderemo questo sistema alla fine del prossimo paragrafo. 
La terza volta inserite due righe uguali, per esempio: 


'1 

1 

r 


V 

1 

1 

i 


6 

2 

1 



1 


Il programma dovrebbe stampare un messaggio di errore per segnalarvi che la 
matrice è singolare. Per uscire dal programma inserite uno zero o un valore negati¬ 
vo come numero di equazioni. 


IL METODO DI ELIMINAZIONE DI GAUSS-JORDAN 

È una variante del metodo di eliminazione di Gauss; presenta più o meno gli stessi 
vantaggi e svantaggi di questo. Il tempo di esecuzione cresce con la terza potenza 
della dimensione della matrice dei coefficienti, e ci sono molte moltiplicazioni, divi¬ 
sioni e sottrazioni che ne riducono la precisione; inoltre usa un algoritmo più compli¬ 
cato di quello di Gauss; ciononostante questo metodo è in genere il più conveniente, 
ed è quello che useremo nei prossimi capitoli. Infatti, consente di determinare facil¬ 
mente il vettore soluzione con l’inversa della matrice dei coefficienti. Studiamo ora 
questo metodo passa passo. 


Spiegazione dettagliata del metodo di Gauss-Jordan 

Gli elementi della diagonale principale sono trasformati in 1 come nel metodo di 
Gauss, e tutti gli elementi sopra e sotto la diagonale principale sono trasformati in 0; 
la matrice dei coefficienti diventa una matrice unitaria, e il vettore dei termini noti di¬ 
venta la soluzione. Nel caso del circuito elettrico della figura 4.1, l'insieme finale dei 
valori diventa: 


'1 0 0 


3 

0 1 0 


2 

0 0 1 


1 
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c he corrisponde alle tre equazioni: 
x ~ 3 

y = 2 

z = 1 


che hanno come soluzione 
x = 3, y = 2, z = 1 


Supponiamo di mettere una matrice unitaria a destra della matrice del sistema di 
equazioni originale; se eseguiamo sulla prima tutte le stesse operazioni che ese¬ 
guiamo sugli elementi dell’altra, alla fine essa sarà diventata l’inversa della matrice 
originale dei coefficienti. L’insieme di valori: 


' 13 

-8 

-3 

-8 

10 

-1 

-3 

-1 

11 



'20 


1 0 0 


-5 


0 1 0 


0 


0 0 1 


si trasformerà in: 


'1 0 

0 1 

0 0 



'3 


0.19 

0.16 

0.07 


2 


0.16 

0.23 

0.06 


1 


0.07 

0.06 

0.11 


La matrice sulla destra è l’inversa dell'originale. In realtà non è necessario usare 
due matrici diverse per queste operazioni; la matrice inversa può occupare fisica- 
mente lo stesso spazio di quella originale e, alla fine del calcolo, sostituirsi ad essa, 
mentre il vettore con la soluzione prenderà il posto di quello originale con i termini 
noti. Così, se la matrice dei coefficienti e il vettore dei termini noti originali sono: 


' 

20 


-5 


0 


13 

-8 

-3 

-8 

10 

-1 

-3 

-1 

11 


la matrice inversa e il vettore soluzione occuperanno alla fine gli stessi array: 


0.19 0.16 0.07 


'3' 

0.16 0.23 0.06 


2 

0.07 0.06 0.11 


1 


Presenteremo ora un programma Pascal che realizza questo algoritmo abbastan¬ 
za complesso. 
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PROGRAMMA PASCAL: IL METODO DI ELIMINAZIONE 
DI GAUSS-JORDAN 


Il programma della figura 4.5 risolve sistemi di equazioni lineari con il metodo dj 
Gauss-Jordan. Il programma principale chiama la procedura esterna GAUSSJ. Seii 
vostro compilatore non consente procedure esterne, dovrete inserirla nel program- 
ma principale. 

La procedura GAUSSJ è mostrata nella figura 4.6; in questa versione viene resti- 
tuita la matrice inversa al posto di quella originale, B; per questo la matrice originale 
A è duplicata nel programma principale prima di chiamare GAUSSJ. Invece, il vetto¬ 
re dei termini noti, Y, è separato da quello della soluzione, COEF. 

Scrivete il programma ed eseguitelo. Inserite le equazioni del circuito elettrico e 
verificate che la soluzione è [3 2 1 ]. Poi inserite i dati seguenti: 


'1 1 1' 


6 

2 1 -1 


1 

3 1 -3 


-4 


Notate che la risposta, in questo caso, non è la stessa di quella trovata con il me¬ 
todo di Gauss, ma l'insieme dei valori: 

x = 1, y = 2, z = 3 

è anch'esso una soluzione del sistema. Come può essere? Una delle equazioni è 
una combinazione lineare delle altre due; precisamente, la terza è uguale alla se¬ 
conda moltiplicata per due meno la prima, e la matrice dei coefficienti è singolare. 
Se forniamo queste tre equazioni, come dati, al programma che applica la regola di 
Cramer del capitolo precedente, questo fatto viene segnalato immediatamente. 

Purtroppo questo tipo di dipendenza lineare è difficile da scoprire; infatti il deter¬ 
minante della matrice dei coefficienti può essere molto piccolo, ma diverso da zero 
a causa degli errori di arrotondamento che si accumulano con il metodo di elimina¬ 
zione. Per fortuna, però, se risolviamo il sistema con diversi algoritmi, avremo risul¬ 
tati diversi; perciò, se ci sono problemi di dipendenza lineare, è meglio risolvere il si¬ 
stema con almeno due metodi diversi. 

Abbiamo visto come questo programma tratta una matrice dei coefficienti con il 
relativo vettore dei termini noti; ora studieremo come modificarlo per trattare in mo¬ 
do opportuno una stessa matrice dei coefficienti con diversi vettori dei termini noti. 
Riprendiamo il caso del circuito elettrico, e insieme continuiamo la discussione sulle 
matrici dei coefficienti inverse e su come usarle per risolvere i sistemi. 
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PROGRAM SOLVGJ(INPUT, OUTPUT); 

(* 12 Feb 81 *) 

(# Programma Pascal che esegue la soluzione di un sistema *) 
(# per mezzo della eliminazione di Gauss-Jordan *) 

CONST 

MAXR = 8; 

MAXC = 8; 

TYPE 

ARY = ARRAY[1 ..MAXR] OF REAL; 

ARYS = ARRAYfl ..MAXC] OF REAL; 

ARY2S = ARRAY[1..MAXR, 1..AAAXC] OF REAL; 

VAR 

Y : ARYS; 

COEF : ARYS; 

A, B : ARY2S; 

N, M, I, J: INTEGER; 

ERROR : BOOLEAN; 

PROCEDURE GET_DATA(VAR A : ARY2S; 

VAR Y ; ARYS; 

VAR N, M : INTEGER); 

(* riceve i valori per n e per le matrici a, y *) 

VAR 

I, J : INTEGER; 


Figura 4.5 — Risoluzione di sistemi di equazioni con il metodo di eliminazione di 
Gauss-Jordan. 
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BEGIN 

WRITELN; 

REPEAT 

WRITE( Quante equazioni? ); 

READLN( N); 

M := N 

UNTIL N < AAAXR; 

IF N > 1 THEN 
BEGIN 

FOR I := 1 TO N DO 
BEGIN 

WRITELN( Equazione', 1:3); 

FOR J := 1 TO N DO 
BEGIN 

WRITE( J:3, '); 

READ( A[I,J]) 

END; 

WRITE( C: '); 

READLN (Y[l]) (* linea bianca *) 

END; 

WRITELN; 

FOR l:= 1 TO N DO 
BEGIN 

FOR J;= 1 TOM DO 

WRITE( A[I,J] :7:4, ' '); 

WRITELN( ' : Y[l] :7:4) 

END; 

WRITELN 

END (* if n > 1 *) 

END (* procedure get_data *); 

PROCEDURE WRITE _ DATA; 

(* stampa i risultati *) 

Figura 4.5 — Risoluzione di sistemi di equazioni con il metodo di eliminazione di 
Gauss-Jordan (segue). 
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VAR 

I : INTEGER; 

begin 

FOR I : = 1TOMDO 

WRITE( COEF[l] :9:5); 
WRITELN 

END (* write_data *); 


(* PROCEDURE gaussj 


(VAR b : ary2s; 

y : arys; 

VAR coef : arys; 

ncol : integer; 

VAR error : boolean); 

extern; *) 

(*$F GAUSSJ.PAS *) 

BEGIN (* programma principale *) 

WRITELN; 

WRITELN 

( Soluzione di un sistema con l’eliminazione di Gauss-Jordan ); 

REPEAT 

GET_DATA (A, Y, N, M); 

IF N > 1 THEN 
BEGIN 

FOR I := 1 TO N DO 
FOR J := 1 TO N DO 

B[I,J] := A[I,J] (* carica la matrice di lavoro *); 
GAUSSJ (B, Y, COEF, N, ERROR); 

IF NOT ERROR THEN WRITE_DATA 


UNTIL N < 2 
END. 


Figura 4.5 — Risoluzione di sistemi di equazioni con il metodo di eliminazione di 
Gauss-Jordan (segue). 
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PROCEDURE GAUSSJ 

(VAR B : ARY2S; (* matrice quadrata dei coefficienti *) 

Y : ARYS; (* vettore delle costanti *) 

VAR COEF : ARYS; (* vettore delle soluzioni *) 

NCOL ; INTEGER; (# ordine della matrice *) 

VAR ERROR : BOOLEAN); (* vero se la matrice è singolare *) 

(* Inversione e soluzione di matrice secondo Gauss Jordan *) 
(# Adattata da McCormick *) 

(* 8 Feb 81 *) 

(* B(N,N) matrice dei coefficienti, diventa inversa *) 

(* Y(N) vettore delle costanti originali *) 

(* W(N,M) vettore costanti, diventa vettore delle soluzioni *) 

(* DETERM è il determinante *) 

(* ERROR = 1 se singolare *) 

(* INDEX(N,3) *) 

(* NV è il numero dei vettori delle costanti *) 

LABEL 99; 

VAR 

W : ARRAY[1..AAAXC, 1..AAAXC] OF REAL; 

INDEX : ARRAY[1..MAXC, 1..3] OF INTEGER; 

I, J, K, L, NV, IROW, ICOL, N, LI : INTEGER; 

DETERM, PIVOT, HOLD, SUM, T, AB, BIG : REAL; 

PROCEDURE SWAP(VAR A, B: REAL); 

VAR 

HOLD: REAL; 


Figura 4.6 — Procedura di Gauss-Jordan 
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begin (* swap *) 

HOLD := A; 

A : = B; 

B : = HOLD 

END (* procedure swap *); 

PROCEDURE GAUSJ2; 

LABEL 98; 

VAR 

I, J, K, L, LI : INTEGER; 

PROCEDURE GAUSJ3; 

VAR 

L: INTEGER; 

BEGIN (* procedure gausj3 *) 

(* scambia le righe per porre il pivot sulla diagonale *) 
IF IROWO ICOL THEN 
BEGIN 

DETERAA ; = - DETERM; 

FOR L := 1 TO N DO 

SWAP(B[IROW, L], B[ICOL, L]); 

IF NV > 0 THEN 

FOR L := 1 TO NV DO 

SWAP(W[JROW, L], W[ICOL, L]) 

END (* if irow <> icol *) 

END (* gausj3 *); 


Figura 4.6 — Procedura di Gauss-Jordan (segue). 
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BEGIN (* procedure gausj2 *) 

(# inizio effettivo di gaussj *) 

ERROR := FALSE; 

NV := 1 (* vettore delle costanti singole *); 

N : = NCOL; 

FORI := 1 TONDO 
BEGIN 

W[l, 1] := Y[l] (* copia il vettore delle costanti *); 

INDEX[I, 3] : = 0 

END; 

DETERM : = 1.0; 

FORI := 1 TONDO 
BEGIN 

(* ricerca l'elemento maggiore *) 

BIG := 0.0; 

FOR J := 1 TONDO 
BEGIN 

IF INDEX[J, 3] <> 1 THEN 
BEGIN 

FOR K := 1 TONDO 
BEGIN 

IF INDEX[K, 3] > 1 THEN 
BEGIN 

WRITELN ( ERRORE: matrice singolare ); 

ERROR := TRUE; 

GOTO 98 (* aborto *) 

END; 

IF INDEX[K, 3] < 1 THEN 
IF ABS(B[J, K]) > BIG THEN 


Figura 4.6 — Procedura di Gauss-Jordan (segue). 
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BEGIN 

IROW : = J; 

ICOL := K; 

BIG := ABS(B[J, K]) 

END 

END (* ciclo k *) 

END 

END (* ciclo j *) 

INDEX[ICOL, 3] := INDEX[ICOL, 3] + 1; 

INDEX[I, 1] := IROW; 

INDEX[I, 2] := ICOL; 

GAUSJ3 (# ulteriore suddivisione di gaussj *); 

(* divide la riga pivot per la colonna pivot *) 
PIVOT : = B[ICOL, ICOL]; 

DETERM : = DETERM * PIVOT; 

B[ICOL, ICOL] := 1.0; 

FOR L := 1 TONDO 

B[ICOL, L] := B[ICOL, L]/PIVOT; 

IF NV > 0 THEN 

FOR L := 1 TO NV DO 

W[ICOL, L] := WflCOL, LJ/PIVOT; 

(# converte le righe non pivot *) 

FORLÌ := 1 TONDO 
BEGIN 

IF LI <> ICOL THEN 
BEGIN 

T := B[L1, ICOL]; 

B[L1, ICOL] := 0.0; 

FOR L := 1 TONDO 

B[L1, L] := B[L1, L] - B[ICOL, L] * T; 

IF NV > 0 THEN 


Figura 4.6 — Procedura di Gauss-Jordan (segue). 
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FOR L : = 1 TO NV DO 

W[L1, L] := W[L1, L] - W[ICOL, L] * T; 
END (* IF 11 <> icol *) 

END 

END (* ciclo i *); 

98: 

END (* gaus|2 * ); 

BEGIN (* programma principale Gauss-Jordan *) 

GAUSJ2 (* prima metà di gaussj *); 

IF ERROR THEN GOTO 99; 

(* scambia le colonne *) 

FOR I := 1 TON DO 
BEGIN 

L;= N - I + 1; 

IF INDEX[L ( 1] <> INDEX[L, 2] THEN 
BEGIN 

IROW := INDEX[L, 1]; 

ICOL := INDEX[L, 2]; 

FOR K := 1 TO N DO 

SWAP(B[K, IROW], B[K, ICOL]) 

END (* if index * ) 

END (* ciclo i *); 

FOR K := 1 TO N DO 

IF INDEX[K, 3] <> 1 THEN 
BEGIN 

WRITELN ( ERRORE: matrice singolare'); 

ERROR := TRUE; 

GOTO 99 (* aborto *) 

END; 

FOR I : = 1 TO N DO 

COEF[l] : = W[l, 1]; 

99: 

END(* procedura gaussj *); 


Figura 4.6 — Procedura di Gauss-Jordan (segue). 
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WPTTORI di termini noti multipli 

E INVERSIONE DELLE MATRICI 

Nel capitolo precedente abbiamo visto che la soluzione di un sistema di equazioni 
lineari si può trovare moltiplicando l’inverso della matrice dei coefficienti per il vetto¬ 
re dei termini noti. Se chiamiamo A la matrice, e y il vettore, il vettore soluzione b 
sarà: 

b = A' 1 y 

In questo capitolo, invece, abbiamo sviluppato dei metodi (regola di Cramer, me¬ 
todo di eliminazione di Gauss e di Gauss-Jordan) che determinano la soluzione di¬ 
rettamente, senza utilizzare l'inversa della matrice dei coefficienti. 

Può capitarci di dover risolvere diversi sistemi di equazioni con la stessa matrice 
dei coefficienti, e diversi vettori dei termini noti. In questo caso, possiamo invertire 
la matrice dei coefficienti, e ottenere le diverse soluzioni dal prodotto della matrice 
inversa per i vettori dei termini noti. Anche in questo caso, però, è in genere più ve¬ 
loce il metodo di eliminazione di Gauss-Jordan, applicato simultaneamente alla ma¬ 
trice e a tutti i vettori. In effetti, la procedura che implementa il metodo di Gauss- 
Jordan nel paragrafo precedente è studiata per questi casi. 

Consideriamo per esempio il circuito della figura 4.1, e supponiamo di voler deter¬ 
minare le correnti delle tre maglie per tre diverse configurazioni: 

1. il circuito originale 

2. il circuito con il generatore di 5 volt invertito 

3. il circuito con entrambi i generatori di tensione invertiti 

Queste tre diverse configurazioni corrispondono alle tre seguenti equazioni: 


'13 

-8 

-3 


' 20 


-8 

10 

-1 


-5 


-3 

-1 

11 


0 


' 13 

-8 

-3 


20 


-8 

10 

-1 


5 


-3 

-1 

11 

• 

0 


'13 

-8 

-3 


r-201 

-8 

10 

-1 



5 

-3 

-1 

11 


0 


Tutti e tre i sistemi possono essere risolti separatamente con una delle tecniche 
viste prima, ma è meglio risolverli contemporaneamente con la procedura di Gauss- 
Jordan. La matrice dei coefficienti è unica per tutti e tre i circuiti, mentre il vettore 
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dei termini noti diventa una matrice, in cui ogni colonna rappresenta una config Ura 
zione diversa e ne produrrà la soluzione. Le matrici da passare alla routine di Gaus s 
Jordan sono: 


13 

-8 

-3 

-8 

10 

-1 

-3 

-1 

11 


20 20 - 20 
-5 5 5 

0 0 0 


e la routine restituirà al programma principale i seguenti valori: 


0.19 

0.16 

0.07 


'3 

4.58 

-3" 

0.16 

0.23 

0.06 


2 

4.33 

-2 

0.07 

0.06 

0.11 


1 

1.64 

-1 


La matrice di sinistra, che inizialmente conteneva i coefficienti, ora contiene l'in¬ 
versa; quella di destra, che inizialmente conteneva i vettori dei termini noti, ora con- 
tiene le soluzioni. Le risposte per i tre diversi circuiti sono: 


Circuito 

Soluzione 

/, 

li 


1 

3 

2 

1 

2 

4.58 

4.33 

1.64 

3 

-3 

2 

-1 


Nella versione precedente avevamo copiato la matrice dei coefficienti originale A 
in un array di lavoro B prima di chiamare la procedura di Gauss-Jordan; inoltre, all'i¬ 
nizio di questa, il vettore dei termini noti Y veniva copiato nella prima colonna della 
matrice W. Alla fine della procedura, la soluzione veniva copiata dalla prima colonna 
della matrice W nel vettore COEF. Ora studieremo una versione modificata del pro¬ 
gramma. 


PROGRAMMA PASCAL: SECONDA VERSIONE 
DEL METODO DI GAUSS-JORDAN 


Il programma della figura 4.8 è un’altra versione del metodo di eliminazione di 
Gauss-Jordan. Sono stati cambiati i parametri formali della procedura di Gauss-Jor¬ 
dan, e l’inversa della matrice dei coefficienti viene restituita nell’array che inizial¬ 
mente conteneva la matrice originale dei coefficienti, come prima; in questa versio¬ 
ne, però, la matrice soluzione viene restituita nell’array che conteneva i termini noti, 
e inoltre viene restituito il determinante della matrice dei coefficienti. 

Esecuzione del programma 

Scrivete il programma ed eseguitelo. Come prima, vi chiederà il numero delle e- 
quazioni, e, successivamente, il numero dei vettori dei termini noti. Se rispondete 1 
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ramma si comporterà esattamente come prima, con l’unica differenza che il 
vettore soluzione sarà stampato verticalmente invece che orizzontalmente. 

5 e il numero dei vettori è maggiore di 1, i termini noti di ogni equazione devono 
essere inseriti sulla stessa linea dell’equazione. Per esempio, se vogliamo risolvere 
contemporaneamente i tre circuiti precedenti con questo programma la prima riga 
di dati sarà: 

13 -8 -3 20 20 -20 


Risolveteli e verificate che i risultati siano esatti. 

Questa nuova versione prevede anche il caso che il numero dei vettori dei termini 
noti sia zero e che quindi sia inserita solo una matrice dei coefficienti. Il programma 
in questo caso stamperà l’inversa e il determinante della matrice dei coefficienti. 

Inserite la matrice seguente, che già conoscete: 

Ti 1 1" 

2 1 -1 

3 1 -3 

Questa matrice è singolare e quindi ha determinante zero, ma il programma di 
Gauss-Jordan potrebbe dare un valore piccolo, ma diverso da zero. Un esempio di 
uscita del programma potrebbe essere il seguente, dove viene inserito 0 per uscire: 


Soluzione di un sistema con Gauss-Jordan 
Vettori delle costanti multiple, o matrice inversa 

Quante equazioni? 3 
Quanti vettori di costanti? 0 
Equazione 1 
1:1 2:1 3:1 

Equazione 2 
1:2 2: 1 3: -1 

Equazione 3 


1: 3 

2:1 3: 

-3 


Matrice 


1.0000 

1 .0000 

1.0000 

2.0000 

1.0000 

-1.0000 

3.0000 

1.0000 

-3.0000 


Inversa 

-11184800.0 22369600.0 -11184800.0 

16777200.0 -33554400.0 16777200.0 

-5592400.0 11184800.0 -5592410.0 

Il determinante è 1.78814e-7 

Quante equazioni? 0 


Figura 4.7 - Risultati del secondo programma del metodo di Gauss-Jordan. 
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PROGRAM SOLVGV(INPUT, OUTPUT); 

(* 8 Feb 81 *) 

(# Programma Pascal che esegue la soluzione di un sistema *) 
(* per mezzo della eliminazione di Gauss-Jordan *) 

(# con i vettori delle costanti multiple *) 

CONST 

MAXR = 7; 

MAXC = 7; 

TYPE 

ARY2S = ARRAY[1 ..MAXR, 1..MAXC] OF REAL; 

VAR 

A, Y : ARY2S; 

N, NVEC : INTEGER; 

ERROR : BOOLEAN; 

DETERM : REAL; 

PROCEDURE GET_DATA(VAR A : ARY2S; 

VAR Y : ARY2S; 

VAR N, NVEC : INTEGER); 

(* riceve i valori per n, nvec e le matrici a, y *) 

VAR 

I, J : INTEGER; 

BEGIN 

WRITELN; 

REPEAT 

WRITE ( Quante equazioni? ); 

READLN( N) 

UNTIL N < MAXR; 


Figura 4.8 — Risoluzione di sistemi e inversione di matrici con il metodo di Gauss- 
Jordan 
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|F N > 1 THEN 
BEGIN 

WRITE ( Quanti vettori delle costanti? ); 

READLN( NVEC); 

FOR I := 1 TO N DO 
BEGIN 

FOR J:= 1TO N DO 
BEGIN 

WRITE(', J:3, '); 

READ( A[I,J]) 

END; 

IF NVEC > 0 THEN 
BEGIN 

FOR J := 1 TO NVEC DO 

BEGIN 

WRITE( C: '); 

READ(Y[I,J]) 

END; 

READLN 

END 

END (* ciclo I *); 

WRITELN; 

WRITE( ' Matrice'); 

IF NVEC > 0 THEN WRITE(' Costanti ); 

WRITELN; 

FOR I: = 1 TONDO 
BEGIN 

FOR J:= 1 TO N DO 

WRITE( A[J, J] :7:4, ' '); 

FOR J : = 1 TO NVEC DO 
WRITE( ' Y[I,J] :7:4); 

WRITELN 

END (* ciclo i *); 

Figura 4.8 — Risoluzione di sistemi e inversione di matrici con il metodo di Gauss- 
Jordan (segue). 


93 



WRITELN 

END (* if ri > 1 *) 

END (* procedure get_data *); 

PROCEDURE WRITE_DATA; 

(* stampa i risultati *) 

VAR 

I, J : INTEGER; 

BEGIN 

IF NVEC > 0 THEN 
BEGIN 

WRITELN ( Soluzione ); 

FORI:= 1 TO N DO 
BEGIN 

FOR J : = 1 TO NVEC DO 
WRITE( Y[I,J] :9:5); 

WRITELN 

END 

END (* IF *) 

ELSE 

BEGIN 

WRITELN( ' (Inverso'); 

FORI := 1 TONDO 
BEGIN 

FOR J:= 1TO N DO 

WRITE( A[I ( J] :9:5); 

WRITELN 

END; 

WRITELN; 

WRITE ( Il Determinante è', DETERM) 

END (* ELSE *); 

WRITELN 

END (* write_data *); 

Figura 4.8 — Risoluzione di sistemi e inversione di matrici con il metodo di Gauss- 
Jordan (segue). 
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procedure gausjv 

(VAR B : ARY2S; (* matrice quadrate dei coefficienti *) 

VARW : ARY2S; (# matrice dei vettori costanti #) 

VAR DETERM : REAL; (* il determinante *) 

NCOL : INTEGER; (* ordine della matrice #) 

NV : INTEGER; (* numero di costanti #) 

VAR ERROR : BOOLEAN); (* vero se la matrice è singolare *) 

(* soluzione e inversione della matrice Gauss-Jordan *) 

(* 21 Nov 81 *) 

(* B(N,N) matrice dei coefficienti, diviene inversa *) 

(# W(N,M) vettore/i delle costanti diventano vettori soluzione *) 
(* DETERM è il determinante *) 

(* ERROR = 1 se singolare *) 

(* INDEX(N,3) *) 

(* NV è il numero dei vettori delle costanti *) 

LABEL 99; 


INDEX: ARRAY[1 ..AAAXC, 1..3] OF INTEGER; 

I, J, K, L, IROW, ICOL, N, LI : INTEGER; 

PIVOT, HOLD, SUM, T, AB, BIG : REAL; 

PROCEDURE SWAP(VAR A, B: REAL); 

VAR 

HOLD: REAL; 

BEGIN (* swap *) 

HOLD : = A; 

A : = B; 

B := HOLD 

END (* procedure swap *); 

Figura 4.8 — Risoluzione di sistemi e inversione di matrici con il metodo di Gauss- 
Jordan (segue). 
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PROCEDURE GAUSJ2; 

LABEL 98; 

VAR 

I, J, K, L, LI: INTEGER; 

PROCEDURE GAUSJ3; 

VAR 

L: INTEGER; 

BEGIN (* procedure gaus|3 *) 

(* scambia le righe per porre la pivot sulla diagonale *) 
IF IROW <> ICOL THEN 
BEGIN 

DETERM := - DETERM; 

FORL := 1 TON DO 

SWAP(B[IROW, L], B[ICOL, L]); 

IF NV > 0 THEN 

FOR L : = 1 TO NV DO 
SWAP(W[IROW, L], W[ICOL, L]) 

END (* if irow <> icol *) 

END (* gousj3 *); 

BEGIN (* inizio effettivo di gaussj *) 

(* actual start of gaussj *) 

ERROR := FALSE; 

N : = NCOL; 

FORI := 1 TONDO 
INDEX[I, 3] := 0; 

DETERM := 1.0; 


Figura 4.8 — Risoluzione di sistemi e inversione di matrici con il metodo di Gauss- 
Jordan (segue). 
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FORI := 1 TONDO 
BEGIN 

(* ricerca l'elemento maggiore *) 

BIG := 0.0; 

FOR J : = 1 TO N DO 
BEGIN 

IF INDEX[J, 3] <> 1 THEN 
BEGIN 

FOR K : = 1 TO N DO 
BEGIN 

IF INDEX[K, 3] > 1 THEN 
BEGIN 

WRITELN ("ERRORE: matrice singolare"); 

ERROR ;= TRUE; 

GOTO 98 (* aborto *) 

END; 

IF INDEX[K, 3] < 1 THEN 
IF ABS(B[J, K])> BIG THEN 
BEGIN 

IROW ; = J; 

ICOL ; = K; 

BIG := ABS(B[J, K]) 

END 

END (* ciclo k *) 

END (* IF *) 

END (* ciclo j *) 

INDEX[ICOL, 3] := INDEX[ICOL, 3] + 1; 

INDEX[I, 1] := IROW; 

INDEX[I, 2] := ICOL; 

GAUSJ3 (* ulteriore suddivisione di gauss) #); 

(* divide la riga pivot per la colonna pivot #) 

PIVOT := B[ICOL, ICOL]; 

DETERM := DETERAA * PIVOT; 

Figura 4.8 - Risoluzione di sistemi e inversione di matrici con il metodo di Gauss- 
Jordan (segue). 
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BflCOL, ICOL] := 1.0; 

FORL := 1 TONDO 

B[ICOL, L] := B[ICOL, Lj/PIVOT; 

IF NV > 0 THEN 

FOR L : = 1 TO NV DO 

W[ICOL, L] := W[ICOL, L]/PIVOT; 

(* converte le righe non pivot *) 

FORLÌ := 1 TONDO 
BEGIN 

IF LI <> ICOL THEN 
BEGIN 

T := B[L1, ICOL]; 

B[L1, ICOL] := 0; 

FOR L : = 1 TONDO 

B[L1, L] := B[L1, L] - B[ICOL, L] * T; 

IF NV > 0 THEN 

FOR L := 1 TO NV DO 

W[L1, L] := W[L1, L] - W[ICOL, L] * T 
END (* IFL1 Oicol *) 

END (* FORLÌ *) 

END (* ciclo i *); 

98: 

END (* gaus|2 *); 

BEGIN (* Programma principale Gauss-Jordan *) 

(* prima metà di gaussj #); 

IF ERROR THEN GOTO 99; 

(* scambio delle colonne *) 

FOR I : = 1 TO N DO 
BEGIN 

L;= N - I + 1; 


Figura 4.8 — Risoluzione di sistemi e inversione di matrici con il metodo di Gauss- 
Jordan (segue). 


98 






IF INDEX[L, 1] <> INDEX[L, 2] THEN 
BEGIN 

IROW : = INDEX[L, 1]; 

ICOL := INDEX[L, 2]; 

FOR K:= 1TO N DO 

SWAP(B[K, IROW], B[K, ICOL]) 

END (* if index *) 

END (* ciclo i *); 

FOR K : = 1 TO N DO 

IF INDEXfK, 3] <> 1 THEN 
BEGIN 

WRITELN ('ERRORE: matrice singolare'); 

ERROR := TRUE; 

GOTO 99 (* aborto *) 

END; 

99: 

END (* procedura gaussj *); 

BEGIN (* programma principale *) 

WRITELN; 

WRITELN ('Soluzione simultanea per mezzo di Gauss-Jordan'); 
WRITELN ('Vettori delle costanti multiple, o matrice inversa'); 

REPEAT 

GET _ DATA (A, Y, N, NVEC); 

IF N > 1 THEN 
BEGIN 

GAUSJV (A, Y, DETERM, N, NVEC, ERROR); 

IF NOT ERROR THEN WRITE_DATA 

END 

UNTIL N < 2 
END. 


Figura 4.8 — Risoluzione di sistemi e inversione di matrici con il metodo di Gauss- 
Jordan (segue). 
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EQUAZIONI MAL CONDIZIONATE 


Un matrice singolare ha determinante nullo, e il corrispondente sistema di equa¬ 
zioni o non ha soluzione o ne ha infinite. La matrice di un sistema mal condizionato 
invece, è “quasi” singolare, produce risultati errati o imprecisi. Una piccola varia¬ 
zione nei dati di ingresso può provocare grosse variazioni nei risultati. Un esempio di 
matrice mal condizionata a due dimensioni è quella che si ottiene dalle equazioni di 
due rette quasi parallele: la soluzione è data dalle coordinate del punto di intersezio¬ 
ne, ma tanto più le rette sono vicine alla condizione di parallelismo, tanto più difficile 
è determinare l’esatto punto di intersezione. 

Esistono diversi test per sistemi mal condizionati; uno di questi consiste nel con¬ 
frontare i valori della matrice inversa con quelli dell’originale. Se c’è una differenza 
di molti ordini di grandezza è probabile che il sistema sia mal condizionato. Un altro 
consiste nel confrontare l'inversa dell’inversa della matrice dei coefficienti con l’ori¬ 
ginale; dovrebbero essere identiche. Questo test controlla sia il procedimento di in¬ 
versione che l’aritmetica del computer. Un ultimo test confronta tra di loro i valori 
che si trovano lungo la diagonale principale, che non dovrebbero essere molto diver¬ 
si tra di loro. 

La matrice di Hilbert è un esempio di matrice mal condizionata; è una matrice 
simmetrica che ha un 1 in alto a sinistra, mentre gli altri elementi diventano sempre 
più piccoli proseguendo nelle righe e nelle colonne, secondo lo schema seguente: 

'1 Vi ’/a Va . 1/n 

Vi ’/a Va Vi 1/(n+1) 

’/a Va Vi Ve ... 1/(n + 2) 

Va 14 Ve 14 1/(n + 3) 

1/(2n- 1) 



La matrice di Hilbert può essere usata 
condizionate, come: 

v x A. . A. A. 


per generare un sistema di equazioni mal 

+ - 1 + 14+ Vi + % + Vi 


X\ 


3 


+ 



14+ Va + Vi + Ve + 14 


*1 + _* 2 _ + J43_ + 

2 3 4 


A 

5 


+ 



x, 


4 


+ 




x 


i 


5 


+ 


*2 


6 


+ 


x 


a 


7 


+ 


x 


4 


8 


+ 


x i 


9 


14+ ’/a + Va + 14 + Ve 

Va + Vi + Ve +14 + Ve 

14+ Ve + Vi + Ve + Ve 
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Notiamo, prima di tutto che le frazioni 1/3, 1/6 e 1/7 non si possono calcolare e- 
sattamente, per cui ci saranno subito errori di arrotondamento. Inoltre, l'inversa del¬ 
la matrice dei coefficienti è: 


25 

-300 

1050 

-1400 

630 

-300 

4800 

-18900 

26880 

-12600 

1050 

-18900 

79380 

-117600 

56700 

-1400 

26880 

-117600 

179200 

-88200 

630 

-12600 

56700 

-88200 

44100 


Alcuni elementi sono diversi ordini di grandezza maggiori di quelli della matrice o- 
riginale inoltre il determinante è quasi zero. 

Poiché ogni elemento del vettore dei termini noti è la somma degli elementi della 
matrice nella riga corrispondente, la soluzione esatta è: 

[ 11111 ] 


Ma poiché la matrice è mal condizionata, la soluzione calcolata risulta essere al- 
l'incirca: 

[1.0001 0.99816 1.00778 0.9884 1.0056] 

Studiamo ora un programma che usa le matrici di Hilbert per studiare sistemi mal 
condizionati. 


PROGRAMMA PASCAL: SOLUZIONE DELLE MATRICI DI HILBERT 


Il programma della figura 4.9 genera una matrice di Hilbert e un vettore dei termi¬ 
ni noti corrispondenti ad una soluzione: 


[111 11 


Esecuzione del programma 


Scrivete il programma ed eseguitelo; il programma gira senza il vostro intervento. 
Comincia con le due equazioni: 


1 

Vi 



'%■ 
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che vengono risolte con la prima versione della procedura di Gauss-Jordan. Questa 
matrice non è mal condizionata, e quindi apparentemente non esistono problemi, n 
vettore soluzione è [1 1], Il programma continua poi con tre, quattro, cinque, sei e 

sette equazioni. 

Se il vostro compilatore Pascal esegue le operazioni in floating-point con la nor- 
male precisione di 32 bit, comincerete a notare gli errori di arrotondamento con 
quattro equazioni. Con sei equazioni avrete la precisione di due o tre cifre significati- 
ve, sette equazioni daranno un risultato privo di significato. 

Se invece avete una precisione di 64 bit, la situazione è molto diversa: la soluzio¬ 
ne di un sistema di 17 equazioni avrà una precisione di almeno sette cifre. Dunque 
questo programma può essere usato per provare la precisione della vostra aritmeti¬ 
ca in floating-point. 


PROGRAM SOLVIT(OUTPUT); 

(* 8 Feb 81 *) 

(* matrice inversa di Hilbert n-per-n *) 

(# la soluzione è 1 1 1 1 1 *) 

(* Programma Pascal che esegue la soluzione di un sistema #) 
(# per mezzo della eliminazione di Gauss-Jordan *) 

CONST 

AAAXR = 7; 

AAAXC = 7; 

TYPE 

ARY = ARRAY[1. .AAAXR] OF REAL; 

ARYS = ARRAY[1..AAAXC] OF REAL; 

ARY2S = ARRAY[1..AAAXR, 1..AAAXC] OF REAL; 

VAR 

Y : ARYS; 

COEF : ARYS; 

A, B : ARY2S; 

N, AA, I, J: INTEGER; 

ERROR : BOOLEAN; 


Figura 4.9 — Risoluzione di un sistema di equazioni mal condizionate. 


102 




PROCEDURE GET_DATA(VAR A : ARY2S; 

VAR Y : ARYS; 

VAR N, M : INTEGER); 

(# carica la matrice di Hilbert n-per-n *) 

VAR 

I, J : INTEGER; 

BEGIN 

FOR I : = 1 TO N DO 
BEGIN 

A[N,I] := 1.0/(N + 1-1); 

A[I,N] := A[N,I] 

END; 

A[N,N] := 1.0/(2 * N - 1); 

FOR I : = 1 TO N DO 
BEGIN 

Y[l] := 0.0; 

FOR J : = 1 TO N DO 

Y[I]:=Y[I] + A[U] 

END; 

WRITELN; 

IF N < 7 THEN 
BEGIN 

FOR I: = 1 TONDO 
BEGIN 

FOR J:= 1 TOM DO 

WRITE( A[I,J] :7:5, ' '); 
WRIT^LN( ' : Y[l] ;7:5) 

END; 

WRITELN 

END (* if n < 7 *) 

END (* procedure get_data *); 


Figura 4.9 — Risoluzione di un sistema di equazioni mal condizionate (segue). 
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PROCEDURE WRITE _ DATA; 

(# stampa i risultati *) 

VAR 

I : INTEGER; 

BEGIN 

FOR I : = 1 TO AA DO 

WRITE( COEF[l] :9:5); 

WRITELN; 

END (* write_data *); 

(* PROCEDURE gauss) 

(VAR a : ary2s; 
y ; arys; 

VAR coef : arys; 
ncol : integer; 

VAR error : boolean); 
extern; *) 

(*$F GAUSSJ.PAS *) 

BEGIN (* programma principale *) 

A[l,l] := 1.0; 

N:=2; 

AA := N; 

REPEAT 

GET _ DATA (A, Y, N, AA); 

FORI := 1 TO N DO 
FOR J := 1 TON DO 

B[I,J] ;= A[I,J] (* carica la matrice di lavoro #); 
GAUSSJ (B, Y, COEF, N, ERROR); 

IF NOT ERROR THEN WRITE _ DATA; 

N := N + 1; 

AA := N 

UNTIL N > AAAXR 
END. 


Figura 4.9 — Risoluzione di un sistema di equazioni mal condizionate (segue). 
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Nel prossimo paragrafo vedremo un'altra variante della procedura di Gauss-Jor- 
dan per un sis,ema con un numero di equazioni maggiore del numero di incognite, e 
presenteremo un programma per determinare la miglior curva interpolante. 

MIGLIOR curva interpolante per un sistema di equazioni 

Il programma precedente produce un esatta interpolazione per un sistema con un 
numero di equazioni uguale a quello delle incognite. Se ci sono più incognite che e- 
quazioni, non esiste un’unica soluzione, e si ha una matrice con più colonne che ri¬ 
ghe. 

C'è un altro caso da considerare: supponiamo di voler determinare il valore di m 
incognite con metodi sperimentali. Se si eseguono m misure indipendenti si può tro¬ 
vare una soluzione esatta; se invece il numero delle misure indipendenti n è maggio¬ 
re del numero di incognite m è possibile determinare la miglior curva interpolante. 

Consideriamo le tre equazioni: 
x + y = 3 
x = 1 

y = i 

che rappresentano tre rette che si incontrano in tre punti diversi; ogni coppia di rette 
definisce un punto nel piano x-y, e questi punti sono i vertici di un triangolo rettango¬ 
lo, nelle posizioni (1,1), (2,1) e (1,2) come si vede nella figura 4.10. La scelta mi¬ 
gliore per I’“intersezione” delle tre rette è il punto che si trova a un terzo del se¬ 
gmento di perpendicolare che va dalla base al vertice opposto: 

x + 1.3333, y = 1.3333 



Figura 4.10 — Miglior interpolante bidimensionale. 
Vediamo ora il programma che trova questa soluzione. 
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PROGRAMMA PASCAL: MIGLIOR CURVA INTERPOLANTE 


Riscrivete il programma della figura 4.5; inserite la procedure SQUARE per con- 
vertire la matrice rettangolare dei coefficienti e il vettore dei termini noti nella matri¬ 
ce quadrata e nel vettore richiesti dalla procedure GAUSSJ, che per altro non com¬ 
pare in questo programma ed è richiamata tramite la direttiva INCLUDE. 

L'algoritmo implementato da questo programma è quello dell’interpolazione con i 
minimi quadrati. Poiché questo argomento è studiato a fondo nel prossimo capitolo, 
qui non diremo altro. 

PROGRAM SOLVGJ(INPUT,OUTPUT); 

(* 12 Feb 81 *) 

(* Programma Pascal che esegue la soluzione di un sistema #) 

(* per mezzo della eliminazione di Gauss-Jordan *) 

(* ci possono essere più equazioni delle incognite *) 

CONST 

AAAXR = 8; 

AAAXC = 8; 

TYPE 

ARY = ARRAY[1.. AAAXR] OF REAL; 

ARYS = ARRAY[1 ..AAAXC] OF REAL; 

ARY2S = ARRAYfl.. AAAXR, 1.. AAAXC] OF REAL; 

ARY2 = ARY2S (* per SQUARE *); 

VAR 

Y : ARY; 

COEF, YY : ARYS; 

A, B : ARY2S; 

N, AA, I, J : INTEGER; 

ERROR : BOOLEAN; 

PROCEDURE GET_DATA(VAR A : ARY2S; 

VAR Y : ARY; 

VAR N, M : INTEGER); 

Figura 4.11 — Miglior interpolante per un sistema di equazioni lineari. 
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(# riceve i valori per n e le matrici a, y #) 


VAR 

I, J : INTEGER; 

BEGIN 

WRITELN; 

REPEAT 

WRITE ("Quante incognite?'); 

READLN( AA) 

UNTIL AA < AAAXC; 

IFAA> 1 THEN 
BEGIN 
REPEAT 

WRITE ("Quante equazioni?'); 
READLN( N) 

UNTIL N >= AA; 

FOR I := 1 TO N DO 
BEGIN 

WRITELN ("Equazione", 1:3); 

FOR J : = 1 TO AA DO 
BEGIN 

WRITE( J:3, '); 

READ( A[I,J]) 

END; 

WRITE( C: '); 

READLN (Y[l]) (* linea bianca *) 
END (* ciclo i *); 

WRITELN; 

FOR I: = 1 TONDO 
BEGIN 


Figura 4.11 — Miglior interpolante per un sistema di equazioni lineari, (segue) 
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FOR J: = 1 TOM DO 

WRITE( A[I,J] :7:4, ' '); 
WRITELN( ' : Y[l] :7:4) 

END; 

WRITELN 

END (* if n> 1 *) 

END (* procedure get_data *); 

PROCEDURE WRITE_DATA; 

(* stampa i risultati *) 

VAR 

I : INTEGER; 

BEGIN 

FOR I := 1 TO M DO WRITE( COEF[l] :9:5); 
WRITELN 

END (* write_data *); 

(* PROCEDURE square(x : ary2; 

y : ary; 

VAR a : ary2s; 

VAR g : arys; 
nrow,ncol : integer); 

extern; *) 

(*$F SQUARE.PAS *) 

(* PROCEDURE gaussj 
(VAR b : ary2s; 
y : arys; 

VAR coef : arys; 
ncol : integer; 

VAR error : boolean); 
extern; *) 

(*$F GAUSSJ.PAS *) 


Figura 4.11 — Miglior interpolante per un sistema di equazioni lineari (segue). 
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BEGIN (* programma principale *) 

WRITELN; 

WRITELN ('La migliore approssimazione di un sistema di equazioni'); 
WRITELN ('Con Gauss-Jordan'); 

REPEAT 

GET_DATA (A, Y, N, M); 

IF AA> 1 THEN 
BEGIN 

SQUARE(A, Y, B, YY, N, AA); 

GAUSSJ (B, YY, COEF, AA, ERROR); 

IF NOT ERROR THEN WRITE_DATA 

END 

UNTIL AA< 2 
END. 


Figura 4.11 — Miglior interpolante per un sistema di equazioni lineari (segue). 


Esecuzione del programma 

Compilate il programma ed eseguitelo. Prima viene richiesto il numero delle inco¬ 
gnite, poi quello delle equazioni; se sono uguali viene calcolata e restituita la solu¬ 
zione esatta, altrimenti la miglior curva interpolante. Le tre equazioni del paragrafo 
precedente avevano due incognite. La matrice e il vettore corrispondenti sono: 


'i r 


3 

1 0 


1 

0 1 


1 


VeFificate che il risultato sia; 
x = 1.3333, y = 1.3333 

Consideriamo ora il circuito presentato all'inizio del capitolo, per il quale abbiamo 
già scritto e risolto il sistema delle tre equazioni delle correnti per le tre maglie. Sup¬ 
poniamo ora che le tensioni dei generatori siano determinate sperimentalmente; se, 
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per il generatore di sinistra si trova un valore di 19 volt, e per quello di destra di - 5 1 
volt, le tre equazioni diventano: 


13 

-8 

-3 

-8 

10 

-1 

-3 

-1 

11 


Inoltre supponiamo che la caduta di tensione misurata sulla resistenza di 1 ohm, 
che si trova sul ramo orizzontale, sia di 1.1 volt. La corrente che attraversa questa 
resistenza è data dalla differenza tra l 2 e l 3 ; questo ci consente di scrivere un’altra 
equazione indipendente, e cioè un'altra riga nella nostra matrice. Le quattro equa¬ 
zioni sono: 


13 

-8 

-8 

10 

-3 

-1 

0 

1 


" 

' 19 ' 


-5.1 


0 


1.1 


Inserite queste quattro equazioni, con le loro tre incognite, nel nuovo programma, 
e confrontate la curva miglior interpolante: 

l 1 =2.8amps, l 2 = 1.8amps, l 3 = 0.94amps 

con la soluzione originale. Inserite zero come numero di equazioni per uscire dal 
programma. 

Ora studieremo un metodo — e il corrispondente programma Pascal - per risolve¬ 
re sistemi di equazioni con coefficienti complessi (cioè numeri che contengono una 
parte immaginaria), e, come esempio, prenderemo un circuito elettrico un po’ più 
complicato del primo. 


EQUAZIONI CON COEFFICIENTI COMPLESSI 

Nello studio dei circuiti elettrici compaiono sistemi di equazioni con coefficienti 
complessi. I numeri complessi non sono previsti come “tipo” dai compilatori stan¬ 
dard, ma possono essere definiti dall'utente; Jensen e Wirth (1) hanno trovato un 
metodo per generare numeri complessi usando il tipo record. È però più facile risol¬ 
vere un sistema di n equazioni complesse trasformandole in 2 n equazioni reali, e ri¬ 
solvendo il sistema così ottenuto con uno dei metodi già visti. 


(1) Jensen e Wirth, Pascal Manuale standard del linguaggio. 
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Esempi 01 un circuito elettrico in corrente alternata 

Consideriamo il circuito elettrico della figura 4.12; è più complicato di quello visto 
(inora perchè contiene un generatore di tensione alternata, un'induttanza e un con¬ 
densatore. L'impedenza di una resistenza è semplicemente R, mentre quella di 
un’induttanza e di un condensatore è funzione della frequenza, e precisamente l’im¬ 
pedenza di un'induttanza è jo> L, dove j è il numero immaginario che si ottiene dalla 
radice di -1. « è la frequenza del generatore in radianti al secondo, L è il valore 
all'induttanza in Henry. L’impedenza di un condensatore è —j/ wC, dove C è il valo¬ 
re della capacità in Farad. 

Nella figura 4.12 i valori delle impedenze sono indicate vicino ai vari componenti; 
la tensione del generatore è 10 volt con una frequenza w. L’induttanza ha un’impe¬ 
denza di j5 ohm, e il condensatore dì —j4 ohm. 



Figura 4.12 - Circuito con generatore di tensione continua. 


Possiamo trovare le correnti di questo circuito con le leggi di Kirchoff; muovendo¬ 
si in ogni maglia in senso orario, si trova: 

(6 + j5) ^ _ 6 l 2 — 10 = 0 (magliadi sinistra) 

—6 I, + (8 — j4) l 2 = 0 (maglia di destra) 

La'matrice e il vettore corrispondenti sono: 


(6 + /5) 

(-6 + /0)' 

'(io 

+ /0) ' 

.(-6 + /0) 

(8 - /4) _ 

(0 

+ j0) . 


Queste due equazioni non possono essere risolte direttamente con i programmi 
che abbiamo visto finora, perchè contengono coefficienti complessi. 
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Consideriamo ora una rappresentazione generale delle equazioni alle maglie: siq 
le correnti che le impedenze possono essere espresse come numeri complessi. 
Possiamo dunque scrivere: 


(A R„ 

+ ÌAIn) 

(/Ri 

+ ///,) 

+ 

(AR 21 

+ 

jAI 2)) 

(/R 2 

+ ill 2 ) 





= 

(VR, 

+ 

/V/,) 



(AR 2 , 

+ ìai 2ì ) 

(IR, 

+ ///,) 

+ 

(AR 22 

+ 

ÌAIn) 

(/r 2 

+ /// 2 ) 





= 

( vr 2 

+ 

ìvi 2 ) 




dove: 


AR „ = 
Al „ = 

IR , = 
Il - 

VR k = 
V ' k = 


parte reale del coefficiente (impedenza) k,I 

parte immaginaria del coefficiente k,l 

parte reale della corrente I 

parte immaginaria della corrente I 

parte reale della tensione nell'equazione k 

parte immaginaria della tensione nell’equazione k 


Eseguendo la moltiplicazione nel primo membro delle equazioni precedenti si ot¬ 
tengono risultati in cui, alternativamente, compare l'operatore complesso j. 

(AR n /R, - A/,, //,) + /(AR,,//, + A/„/R,) + 

Per essere soddisfatta l’uguaglianza dell'espressione a sinistra dell’uguale con 
quella a destra, la parte reale a sinistra deve essere uguale a quella di destra, e i 
coefficienti della parte immaginaria a sinistra devono essere uguali a quelli di de¬ 
stra. Queste condizioni portano a scrivere un sistema di 2n equazioni in cui com¬ 
paiono solo coefficienti reali. 

La prima equazione è: 

AR„ - A/,, + AR U - Al u - VR, 

Notate che vi compaiono i complessi coniugati dei coefficienti originali, cioè i 
coefficienti originali compaiono nell’ordine, ma con i segni cambiati. 

La seconda equazione è: 

A/n + AR, | + A/,2 + AR, 2 = W , 

Anche questa contiene i coefficienti dell’originale, ma le parti reali e immaginarie 
sono scambiate fra di loro, e sono restati i segni originali. 


112 



Il nuovo sistema di equazioni completo dà origine alle seguenti matrici: 


ARu 

-A/„ 

AR ì2 

-Alu 


rw?,i 

Alu 

AR U 

AI ì2 

ARu 


VI , 

AR 2Ì 

~AI 2 ì 

ar 22 

-ai 22 


vr 2 

Al 21 

AR„ 

ai 22 

AR 22 


Vl 2 


Sostituendo i valori della figura 4.12 otteniamo: 



" 

' 10 


0 


0 


0 


Ogni coefficiente originale compare due volte nella nuova matrice. Il vettore solu¬ 
zione può essere determinato facilmente con i metodi studiati in questo capitolo, ed 
è: 


[1.5 -2.0 1.5 -0.75] 

che corrisponde alle correnti: 

/, - 1.5 - j2 amps = 2.5 /-53° 

l 2 = 1.5 - /'0.75 amps - 1.67 /-27° 

Possiamo verificare l'esattezza di questi risultati calcolando le cadute di tensione 
su ogni elemento del circuito. Per esempio, se supponiamo che il nodo in basso sia 
a zero volt, la tensione sul nodo superiore è uguale alla caduta di tensione sulla resi¬ 
stenza di 6 ohm: 

V = 6(l 1 -i 2 )=6(-j1.25) =—j7.5 volt 


Analogamente la caduta di tensione sull’induttanza è: 


V = j5(l,) =10 + j7.5 volt 


La somma delle cadute di tensione nella maglia di sinistra è: 

(—j7.5) + (10 + j7.5) - (10) = 0 

La stessa verifica si può fare sulla maglia di destra. 

Studiamo ora un programma per risolvere sistemi dì equazioni con coefficienti 
complessi. 
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PROGRAMMA PASCAL: SISTEMI DI EQUAZIONI 
CON COEFFICIENTI COMPLESSI 


Il programma della figura 4.13 facilita la soluzione di sistemi di equazioni con 
coefficienti complessi. Ogni coefficiente delle n equazioni originali viene inserito una 
sola volta; il programma sistema poi i dati in una matrice 2 n x 2 n e in un vettore dei 
termini noti di lunghezza 2n. Si possono risolvere sistemi con al massimo 4 equazio¬ 
ni; questo limite si può cambiare cambiando i valori alle variabili NROW e NCOL, 
che contengono un numero pari al doppio del numero massimo di equazioni. Uno 
qualsiasi dei metodi sviluppati in questo capitolo va bene per trovare la soluzione; 
noi abbiamo scelto quello di Gauss-Jordan, per cui è meglio iniziare con una copia 
del programma di Gauss-Jordan di figura 4.5. 


PROGRAM SOLVEC(INPUT, OUTPUT); 

(* 8 Mar 81 )* 

(# Programma Pascal che esegue la soluzione di un sistema *) 
(* per coefficienti complessi ») 

(* per mezzo della eliminazione di Gauss-Jordan *) 

CONST 

AAAXR = 8; 

MAXC = 8; 

TYPE 

ARY = ARRAY[1.. AAAXR] OF REAL; 

ARYS = ARRAY[1 ..MAXC] OF REAI; 

ARY2S = ARRAY[1.. AAAXR, 1..AAAXC] OF REAL; 

ARYC2= ARRAY[l.. AAAXR, 1..AAAXC, 1..2] OF REAL; 

ARYC = ARRAY[1.. AAAXR, 1..2] OF REAL; 

VAR 

Y : ARYS; 

COEF : ARYS; 

A, B : ARY2S; 

N, M, I, J : INTEGER; 

ERROR : BOOLEAN; 


Figura 4.13 — Risoluzione di sistemi di equazioni con coefficienti complessi. 
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PROCEDURE GET_DATA(VAR A : ARY2S; 

VAR Y : ARYS; 

VAR N, AA : INTEGER); 

(* riceve i valori complessi di n e delle matrici a, y *) 

VAR 

C : ARYC2; 

V : ARYC; 

I, J, K, l : INTEGER; 

PROCEDURE SHOW; 

(# stampa i nuovi dati *) 

VAR 

I, J, K : INTEGER; 

BEGIN (* show *) 

WRITELN; 

FOR l:= 1 TO N DO 
BEGIN 

FOR J:= 1 TO M DO 
FOR K := 1 TO 2 DO 

WRITE( C[I,J,K] :7:4, ' '); 

WRITELN( ' : V[l,l] . 7 : 4 , ' : V[l,2] :7:4) 

END; 

N := 2 * N; 

AA : = N; 

WRITELN; 

FOR l:= 1 TO N DO 
BEGIN 


Figura 4.13 — Risoluzione di sistemi di equazioni con coefficienti complessi (se¬ 
gue). 
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FOR J:= 1 TOM DO 

WRITE( A[I,J] :7:4, ' '); 

WRITELN( ' : Y[l] :9:5) 

END; 

WRITELN 
END (* show *); 

BEGIN (* procedure get_data *) 

WRITELN; 

REPEAT 

WRITE ('Quante equazioni?'); 

READLN( N); 

M : = N 

UNTIL N < MAXR; 

IF N > 1 THEN 
BEGIN 

FOR l:= 1TONDO 
BEGIN 

WRITELN ('Equazione', 1:3); 

K : = 0; 

L : = 2 * I — 1 ; 

FOR J: = 1 TO N DO 
BEGIN 

K := K + 1; 

WRITE ('Reale'. J;3, ';'); 

READ( C[I,J, 1])(* parte reale #); 

A[L,K] := C[I,J, 1]; 
A[L+1,K+1]:=C[I,J, 1]; 

K := K + 1; 

WRITE ('Imm', J:3, ':'); 

READ( C[I,J, 2]) (* parte immaginaria *); 
A[L,K] := -C[I,J, 2]; 

A[L + 1,K-1] := C[I,J, 2] 


Figura 4.13 — Risoluzione di sistemi di equazioni con coefficienti complessi (se¬ 
gue). 
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END (* ciclo j *): 

WRITE ('const. Reale'); 

READ (V[l, 1 ]) (# costante reale *); 

Y[L]:= V[l,l]; 

WRITE ( 'Const imm.; '); 

READLN (V[l,2])(# costante immaginaria *) 
Y[L+1] := V[l,2] 

END (# ciclo i *); 

SHOW (* dati originali #) 

END (* if n> 1 *) 

END (* procedure get_data *); 

PROCEDURE WRITE _ DATA; 

(# stampa i risultati *) 

VAR 

l ( J : INTEGER; 

RE, IM : REAL; 

FUNCTION MAG(X, Y : REAL): REAL; 

(* magnitudine polare *) 

BEGIN 

MAG := SQRT( SQR(X) + SQR(Y)) 

END (* function mag *); 

FUNCTION ATAN(X, Y : REAL): REAL; 

(* arctan in gradi *) 

CONST 

PII 80 = 57.2957795; 


Figura 4.13 — Risoluzione di sistemi di equazioni con coefficienti complessi (se¬ 


gue). 


VAR 


A : REAL; 

BEGIN (* atan *) 

IFX = O.OTHEN 

IF Y = 0.0 THEN ATAN : = 0.0 
ELSE ATAN := 90.0 
ELSE (* x e y <> 0 *) 

IFY = O.OTHEN ATAN := 0.0 
ELSE (* x and y <> 0 * ) 

BEGIN ' 

A := ARCTAN (ABS(Y/X )) * PI 180; 

IFX> 0.0 THEN 

IFY >0.0 THEN ATAN := A (*x, y>0*) 
ELSE ATAN := -A (* x > 0, y < 0 *) 

ELSE (* x < 0 *) 

IF Y > 0.0 THEN ATAN : = 180.0 - A 
(* x < 0, y > 0 *) 

ELSE ATAN := 180.0 + A (* x, y < 0 *) 
END (* else *) 

END (* function atan *); 

BEGIN 

WRITELN 

('Reale Immaginaria Magnitudine Angolo'); 

FOR I : = 1 TO M DIV 2 DO 
BEGIN 

J := 2 * I - 1; 

RE ;= COEF[J]; 

IM : = COEF[J+ 1]; 

WRITELN( RE :11:5, IM :11:5, 

MAG(RE, IM) : 11:5, 

ATAN(RE, IM) :11:5) 


Figura 4.13 — Risoluzione di sistemi di equazioni con coefficienti complessi (se¬ 
gue). 
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END (* for *); 

WRITELN 

END (* write_data *); 

(* PROCEDURE gaussj 
(VAR b : ary2s; 
y : arys; 

VAR coef : arys; 
ncol : integer; 

VARerror : boolean); 
extern; ★) 

(*$F GAUSSJ.PAS *) 

BEGIN (* mairi program *) 

WRITELN; 

WRITELN 

('Soluzione di un sistema con coefficienti complessi'); 

WRITELN ('Per mezzo della eliminazione di Gauss-Jordan'); 

REPEAT 

GET _ DATA (A, Y, N, M); 

IF N > 1 THEN 
BEGIN 

FOR I : = 1 TO N DO 
FOR J := 1 TO N DO 

B[I,J] : = A[I,J] (* carica della matrice di lavoro *); 
GAUSSJ (B,.Y, COEF, N, ERROR); 

IF NOT ERROR THEN WRITE_DATA 

END 

UNTIL N < 2 
END. 


Figura 4.13 — Risoluzione di sistemi di equazioni con coefficienti complessi (se¬ 


gue). 
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Esecuzione del programma 

Battete il programma e usatelo per risolvere il circuito della figura 4.12. Inserite? 
come numero delle equazioni, e poi i coefficienti delle equazioni nell’ordine corretto 
prima la parte reale e poi quella immaginaria; nello stesso modo inserite il vettore 
dei termini noti. I valori da inserire nel nostro caso sono; 

6 , 5, - 6 , 0, 10, 0 (equazione 1) 

— 6 , 0, 8 , —4, 0, 0 (equazione 2) 

I dati di ingresso sono stampati, seguiti dalla nuova matrice 2 n x 2 n; poi viene da¬ 
ta la soluzione, sia in forma rettangolare che in forma polare. 

L’ampiezza della rappresentazione polare viene calcolata nella funzione MAG, 
come risultato della radice quadrata della somma dei quadrati delle componenti ret¬ 
tangolari. L’angolo di sfasamento viene calcolato dalla funzione ATAN; questa fun¬ 
zione sembra notevolmente più complicata del necessario. Il problema è che le fun¬ 
zioni ARCTAN non hanno una versione standard: come abbiamo visto nel capitolo 1, 
alcune restituiscono un valore tra 0° e 180°, altre tra —90° e +90°. La funzione ATAN 
calcola l'arcotangente nel primo quadrante; solo in seguito l’angolo viene convertito 
nel quadrante esatto. 

Fino a questo punto abbiamo visto diversi metodi per risolvere piccoli sistemi di e- 
quazioni; l’ultimo argomento che affronteremo in questo capitolo è un metodo itera¬ 
tivo adatto a risolvere grossi problemi. 


IL METODO ITERATIVO DI GAUSS-SEIDEL 

I metodi di eliminazione di Gauss e di Gauss-Jordan che abbiamo visto finora non 
si prestano alla risoluzione di grossi sistemi di equazioni, in quanto il numero di mol¬ 
tiplicazioni e sottrazioni cresce notevolmente al crescere del numero di equazioni, 
e il conseguente errore di arrotondamento può produrre risultati privi di significato. 

II metodo di Gauss-Seidel determina la soluzione di un sistema di equazioni con 
una tecnica iterativa, in cui un primo risultato approssimato viene ripetutamente ag¬ 
giustato, fino a quando diventa accettabilmente vicino alla soluzione. Poiché ogni 
approssimazione dipende solo da quella precedente, gli errori di arrotondamento 
non si accumulano; inoltre non è necessario che le equazioni siano lineari. 

Consideriamo le tre equazioni delle maglie della figura 4.1: 


13/, 

- 81 2 - 

31 3 

= 

20 

-8/, 

+ 10/ 2 - 

>3 

= 

-5 

-31, 

~ I2 + 

II/3 

= 

0 
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Ricavando l 1 dalla prima equazione si ottiene: 


20 + 8 1 2 + 3/j 

13 


dove I, è espresso in funzione delle altre due incognite. Se prendiamo zero come 
prima approssimazione per l ? e l 3 , otteniamo per I, il valore di 1.54. Ora possiamo 
risolvere la seconda equazione rispetto alla seconda incognita: 

/ = 8 /, + / 3 — 5 

2 10 


Sostituendo 1.54 per ^ e 0 per l 3 otteniamo un valore di 0.73 per l ? 
Analogamente si risolve la terza equazione rispetto alla terza incognita: 


l 3 


3/, + l 2 
11 


Sostituendo 1.54 per ^ e 0.73 per l 2 otteniamo 0.486 per l 3 . Il procedimento viene 
poi ripetuto, usando i valori 0.73 per l 2 e 0.486 per l 3 e ricavando un valore con una 
migliore approssimazione per I Dopo circa 20 iterazioni i valori hanno una 
precisione di tre cifre significative. La seguente tabella dà nell’ordine alcuni di questi 
valori: 


1 

'2 

'3 

0 

0 

0 

1.54 

0.73 

0.86 

2.1 

1.23 

0.685 

2.45 

1.53 

0.808 

2.67 

1.71 

0.883 


Nel metodo di Gauss-Seidel si possono presentare diversi problemi: prima di tutto 
il procedimento può non convergere, cioè i valori che man mano si trovano possono 
allontanarsi sempre più dalla soluzione esatta. Consideriamo ad esempio le tre e- 
quazioni precedenti: se le scriviamo nell'ordine inverso otteniamo: 


/, =( 11 /, - l 2 )l 3 

/ 2 = (13/, - 3/j - 20)/13 

l 3 = 10 1 2 - 8/, 
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Scegliamo come prima approssimazione lo zero, come nel caso precedente. i_ a 
successione di valori che si trova è chiaramente divergente: 


'l '2 '3 

0 0 0 

0 -1.5 -15 

-57 -54 -92 

-318 -299 -440 


Il motivo è che i valori maggiori non si trovano sulla diagonale principale; basta 
cambiare le righe per mettere gli elementi di valore maggiore nelle posizioni del pi- 
vot. 

Studiamo ora un'implementazione Pascal del metodo di Gauss-Seidel, prestando 
particolare attenzione ad un paio di caratteristiche interessanti: 

. la differenza tra criteri relativi e assoluti nelle decisioni IF...THEN 
. il significato e l’uso del "rilassamento per punti" 


PROGRAMMA PASCAL: IL METODO DI GAUSS-SEIDEL 

Stranamente, la scelta della prima approssimazione non è molto importante, 
mentre un nuovo problema da considerare è il criterio di convergenza. Il programma 
della figura 4.14 può essere usato per provare il metodo di Gauss-Seidel; gran parte 
del programma può essere copiata da quello di eliminazione di Gauss della figura 
4.3. 

La routine di scambio dei pivot usata con il metodo di eliminazione di Gauss è in¬ 
serita anche in questo programma con lo stesso scopo, per scambiare fra di loro le 
righe in modo di avere sulla diagonale principale l’elemento maggiore di ogni colon¬ 
na. 

Per determinare la convergenza si usa un criterio assoluto: 

IF ABSfNEXTC - COEF[J])>TOL THEN... 


In genere è meglio usare un criterio relativo: 

IF ABS(1 - COEF[J] / NEXTC) >TOL THEN... 


Ma in questo caso dobbiamo essere sicuri che NEXTC sia diverso da zero; possia¬ 
mo usare la formula: 

IF ABS(NEXTC - COEFIJ]) >ABS(TOL*NEXTC) THEN... 
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PROGRAM GAUSID(INPUT, OUTPUT); 

(* 23 Feb 81 *) 

(* Programma Pascal che esegue *) 

(* la soluzione di un sistema per mezzo di Gauss-Seidel *) 
(* la procedura SEID è inclusa *) 

CONST 

MAXR = 8; 

AAAXC = 8; 

TYPE 

ARY = ARRAY[1..AAAXR] OF REAL; 

ARYS = ARRAY[1.. AAAXC] OF REAL; 

ARY2S = ARRAY[1..AAAXR, !..AAAXC] OF REAL; 


VAR 


Y 

ARY; 

COEF 

ARYS; 

A 

ARY2S; 

N, AA 

INTEGER; 

ERROR 

BOOLEAN; 


PROCEDURE GET_DATA 
(VAR A : ARY2S; 

VAR Y : ARY; 

VAR N, AA : INTEGER); 

(# riceve i valori di n e delle matrici a, y *) 

VAR 

I, J : INTEGER; 

BEGIN 

WRITELN; 


Figura 4.14 — Risoluzione di equazioni lineari con il metodo di Gauss Seidel. 
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REPEAT 

WRITE('Quante equazioni?'); 
READLN(N) 

UNTIL N < AAAXR; 

M : = N; 

IF N > 1 THEN 
BEGIN 

FOR I := 1 TO N DO 
BEGIN 

WRITELN ( ' Equazione ', 1:3); 

FOR J := 1 TO N DO 
BEGIN 

WRITE(J: 3, '); 

READ(A[I, J]) 

END; 

WRITE(', C: '); 

READ(Y[I]); 

READLN (* linea bianca *) 

END; 

WRITELN; 

FOR I := 1 TO N DO 
BEGIN 

FOR J := 1 TOM DO 

WRITE(A[I, J]: 7: 4, ' '); 
WRITELN(' : Y[l]: 7: 4) 

END; 

WRITELN 

END (* if n> 1 *) 

ELSE IF N < 0 THEN N := - N; 

M := N 

END (* procedure get_data *); 


Figura 4.14 — Risoluzione di equazioni lineari con il metodo di Gauss Seidel (se¬ 
gue). 
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PROCEDURE WRITE_DATA; 

(* stampa i risultati *) 


VAR 

I : INTEGER; 

BEGIN 

FORI := 1 TOM DO 

WRITE(COEF[l]: 9: 5); 

WRITELN 

END (* write_data *); 

PROCEDURE SEID 

(A : ARY2S; 

Y : ARY; 

VAR COEF : ARYS; 

NCOL : INTEGER; 

VAR ERROR : BOOLEAN); 

(# soluzione della matrice per mezzo di Gauss-Seidel *) 
(* 23 Feb 1981 *) 

CONST 

TOL = 1.0E-4; 

AAAX = 100; 


DONE : BOOLEAN; 

I, J, K, L, N : INTEGER; 

NEXTC, HOLD, SUM, LAMBDA, AB, BIG : REAL; 

BEGIN 
REPEAT 

WRITEf'Fattore di rilassamento?'); 

READLN(LAMBDA) 

Figura 4.14 — Risoluzione di equazioni lineari con il metodo di Gauss Seidel (se¬ 
gue). 
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UNTIL (LAMBDA < 2.0) AND (LAMBDA > 0.0); 

ERROR := FALSE; 

N : = NCOL; 

FOR I := 1 TO N - 1 DO 
BEGIN 

BIG := ABS(A[I, I]); 

L := I; 

FOR J : = I + 1 TO N DO 
BEGIN 

(* ricerca il maggiore elemento *) 

AB := ABS(A[J, I]); 

IF AB > BIG THEN 
BEGIN 

BIG := AB; 

L : = J 

END 

END (* ciclo j *); 

IF BIG = 0.0 THEN ERROR : = TRUE 

ELSE 

BEGIN 

IF L <> I THEN 
BEGIN 

(# scambia le righe per porre *) 

(# l’elemento maggiore sulla diagonale *) 

FOR J := 1 TO N DO 
BEGIN 

HOLD := A[L ( J]; 

A[L, J] := A[l, J]; 

A[l, J] := HOLD 

END; 

HOLD := Y[L]; 

Y[L]:=Y[I]; 

Y[l] : = HOLD 

Figura 4.14 — Risoluzione di equazioni lineari con il metodo di Gauss Seidel (se¬ 
gue). 
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END 


END (* if L <> i *) 

(* if big *) 

END; (k ciclo i *) 

IF A[N, N] = 0.0 THEN ERROR : = TRUE 

ELSE 

BEGIN 

FORI := 1 TONDO 

COEF[l] := 0.0 (* posizione iniziale *); 

I : — 0; 

REPEAT 

I := I + 1; 

DONE : = TRUE; 

FOR J : = 1 TO N DO 
BEGIN 

SUM := Y[J]; 

FORK:= 1 TONDO 
IF J <> K THEN 

SUM := SUM - A[J, K] * COEF[K]; 
NEXTC := SUM/A[J, J]; 

IF ABS(NEXTC - COEF[J]) > TOL THEN 
BEGIN 

DONE : = FALSE; 

IF NEXTC * COEF[J] < 0.0 THEN 

NEXTC := (COEF[J] + NEXTC) * 0.5 

END; 

COEF[J] : = 

LAMBDA * NEXTC + (1.0 - LAMBDA) 

* COEF[J]; 

WRITELN(I; 4, coef(', J, ') =', COEF[J]) 
END (* ciclo J *) 

UNTIL DONE OR (I > MAX) 

END; (* IFa[n,n] = 0 *); 


Figura 4.14 — Risoluzione di equazioni lineari con il metodo di Gauss Seidel (se¬ 
gue). 
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IF I > MAX THEN ERROR : = TRUE; 

IF ERROR THEN WRITELN ('ERRORE: Matrice singolare') 

END (* seid *); 

BEGIN (* programma principale *) 

WRITELN; 

WRITELN ('Soluzione simultanea per mezzo di Gauss-Seidel); 

REPEAT 

GET_DATA(A, Y, N, M); 

IF N > 1 THEN 
BEGIN 

SEID(A, Y, COEF, N, ERROR); 

IF NOT ERROR THEN WRITE_DATA 

END 

UNTIL N < 2 
END. 


Figura 4.14 — Risoluzione di equazioni lineari con il metodo di Gauss Seidel (se¬ 
gue). 


Qualche volta le approssimazioni successive differiscono eccessivamente; il pro¬ 
gramma della figura 4.14 attenua questo fenomeno. Se due successive approssima¬ 
zioni hanno segno diverso la loro differenza è dimezzata. 

Un'altra caratteristica di questo programma va sotto il nome di "rilassamento per 
punti": ogni valore è funzione della precedente iterazione, del valore calcolato, e di 
un fattore di rilassamento LAMBDA. Se COEF[J] è il valore precedente e NEXTC è il 
valore calcolato, il valore successivo diventa: 

COEF[J] : = LAMBDA*NEXTC + (1.0 - LAMBDA) COEF[J] ; 

Il valore di LAMBDA è compreso tra 0 e 2. 
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esecuzione del programma 

Scrivete il programma di figura 4.14 ed eseguitelo; vi chiederà il numero di equa- 
z ioni e voi inserite 3. Poi inserite le tre equazioni del circuito elettrico, in un ordine 
qualsiasi, visto che è compresa la routine di scambio delle righe. A questo punto il 
programma vi chiederà il fattore di rilassamento rispondete 1.0. Il programma stam¬ 
perà I valori di ogni successiva iterazione dopo il numero dell'iterazione stessa. 

La convergenza si avrà dopo circa 20 iterazioni, e il programma vi chiederà anco¬ 
ra il numero di equazioni. Rispondete —3 per dire, con il segno —, che volete usare le 
stesse equazioni. 

Potete eseguire il programma ripetutamente con gli stessi dati, cambiando il fat¬ 
tore di rilassamento. Nella seguente tabella vedete come il numero di iterazioni di¬ 
pende dal fattore di rilassamento. 


Lambda 

Iterazioni 

0.8 

31 

1.0 

20 

1.2 

11 

1.3 

9 

1.4 

12 

1.5 

15 

1.8 

44 


Ora inserite una matrice di Hilbert 2x2: 


'1.0 

0.5 

1.5 

0.5 

0.3333 

0.83333 


Troverete che il valore ottimale per II fattore di rilassamento è 1.4, circa lo stesso 
del sistema precedente. Per altri sistemi di equazioni sarà 1.0 o 0.8. 

Come si vede, il metodo di Gauss-Seidel non è automatico come gli altri che ab¬ 
biamo studiato, ma è utile per risolvere sistemi con un gran numero di equazioni o 
non lineari. 

SOMMARIO 

Abbiamo studiato un certo numero di metodi per risolvere sistemi di equazioni, o- 
gnuno adatto ad una situazione particolare. Abbiamo poi presentato i programmi 
che realizzano questi metodi sul calcolatore. Abbiamo anche studiato diversi casi 
particolari: vettore multiplo di termini noti, equazioni mal condizionate; ricerca della 
migliore interpolante per un sistema di equazioni indeterminato; equazioni con coef¬ 
ficienti complessi. Nei relativi programmi abbiamo visto poi diverse nuove e interes¬ 
santi caratteristiche della programmazione in Pascal. 
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CAPITOLO 5 


PROGRAMMA DI INTERPOLAZIONE 
DI UNA CURVA 


INTRODUZIONE 

In questo capitolo svilupperemo un programma che esegue l'interpolazione linea¬ 
re di una curva coi minimi quadrati. In particolare studieremo un programma per 
trovare la retta che rappresenta nel modo migliore un insieme di dati x-y: il program¬ 
ma genera i dati, calcola l'equazione desiderata, stampa i risultati, produce un grafi¬ 
co dei dati e fornisce una misura delia correlazione tra x e y. Nel capitolo 6 aggiun¬ 
geremo una routine di ordinamento che consente il trattamento di dati sperimentali 
reali. 

Il programma è lungo e complicato, ma noi non programmeremo tutte le parti in¬ 
sieme; useremo invece un approccio modulare, di tipo top-down, per cui comincere- 
mo a scrivere solo una piccola parte del programma, che verrà immediatamente e- 
seguita per provarla. Poi aggiungeremo un’altra parte e proveremo il nuovo pro¬ 
gramma. Con questa tecnica anche un programma relativamente complesso può 
essere sviluppato in modo logico e graduale, provando le singole parti man mano 
che si aggiungono; se si trova un errore sarà presumibilmente nell’ultima parte ag¬ 
giunta. 

Man mano che svilupperemo le diverse porzioni del programma, discuteremo di¬ 
versi algoritmi e il modo per implementarli, e precisamente: 

• l'uso di una funzione RANDOM e di un "fattore di falsificazione” per simula¬ 
re dati sperimentali sparpagliati su di una retta 

• una procedura per stampare grafici su un normale terminale o una stam¬ 
pante 

• una procedura di interpolazione con i minimi quadrati che usa il calcolo dif¬ 
ferenziale per determinare la tangente e l’intercetta sull'asse y dei dati in¬ 
terpolati 
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• un metodo semplice ed elegante per calcolare il coefficiente di correla*^ 
ne col nostro programma. 


IL PROGRAMMA PRINCIPALE 

Prima di tutto dobbiamo scrivere il programma principale con le routine di ingres¬ 
so/uscita; il programma principale sarà il più breve possibile, e conterrà: il nome del 
programma, le istruzioni di dichiarazione e le chiamate alle procedure. Studieremo 
due versioni di questo programma, una che usa una funzione RANDOM di sistema 
e una che simula questa funzione. 


Prima versione: funzione RANDOM di sistema 

Scrivete il programma Pascal della Figura 5.1 e dategli un nome significativo co¬ 
me: 


CFIT1.PAS 


Il programma principale inizia con la dichiarazione di INPUT e di OUTPUT, segui¬ 
te immediatamente dalle variabili GLOBAL. Seguono due procedure, la GET-DATA 
che fornisce i dati di ingresso, e la WRITE-DATA che produce la stampa dei risultati. 
Le chiamate a questi programmi sono alla fine del programma principale; notate che 
l'ultima chiamata è seguita da un punto e virgola, che non è necessario anche se 
sintatticamente corretto; d'altra parte la presenza del punto e virgola in questo punto 
semplifica la programmazione della parte seguente. 

La procedura di ingresso GET-DATA produce inizialmente un insieme di punti x-y 
con una funzione di generazione di numeri casuali; si potrebbe in un secondo tempo 
modificarla, in modo che legga i dati sperimentali da un file su disco. 


Seconda versione: simulazione della funzione RANDOM 

La procedura GET-DAT chiama una funzione RANDOM per generare una retta 
con punti sparpagliati in modo casuale; questa funzione non fa parte normalmente 
del linguaggio Pascal, ma potrebbe essere prevista dal vostro compilatore. In caso 
contrario, userete il programma della Figura 5.2, che comprende la funzione RAN¬ 
DOM, al posto di quelle della Figura 5.1. 
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PROGRAM CFIT1 (INPUT,OUTPUT); 


(* Programma Pascal che esegue una *) 

(# interpolazione lineare coi minimi quadrati *) 

(# 22 Ott 80 *) 

CONST 

MAX = 20; 

TYPE 

INDEX = 1 ..MAX; 

ARY = ARRAY[INDEX] OF REAL; 

VAR 

X, Y, Y__CALC : ARY; 

N : INTEGER; 

DONE : BOOLEAN; 

A, B : REAI; 

PROCEDURE GET _ DATA(VAR X, Y : ARY; 

VAR N : INTEGER); 

(# riceve i valori di n e delle matrici x, y *) 

(* y è sparpagliato in modo random su una linea retta *) 

CONST 

A = 2.0; 

B = 5.0; 

VAR 

I, J : INTEGER; 

FUDGE : REAL; 


Figura 5.1 — Parte iniziale di un programma di interpolazione di una curva. 
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BEGIN 

WRITE ( ' Falsificazione? ' ) ; 

READLN( FUDGE); 

IF FUDGE < 0.0 THEN DONE : = TRUE 

ELSE 

BEGIN 

REPEAT 

WRITE ('Quanti punti?'); 

READLN( N) 

UNTIL (N > 2) AND (N <= MAX); 

FORI := 1 TONDO 
BEGIN 

j : = N +1 -I; 

X[l]:= J; 

Y[l] := (A + B*J) 

*(1.0 + (2.0*RANDOM(0)-1.0) 
★ FUDGE) 

END (* ciclo FOR *) 

END (* IF *) 

END (* procedure get_data *); 


PROCEDURE WRITE _ DATA; 

(* stampa i risultati *) 

VAR 

I : INTEGER; 


Figura 5.1 — Parte iniziale di un programma di interpolazione di una curva (se¬ 
gue). 
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BEGIN 

WRITELN; 

WRITELN(' I X Y'); 

FORI := 1 TONDO 

WRITELN(I:3, X[l]:8:l, Y[l]:9:2); 

WRITELN 

END (* write_data ★ ); 

BEGIN (« programma principale *) 

DONE : = FALSE; 

REPEAT 

GET _ DATA (X, Y, N); 

IF NOT DONE THEN 
BEGIN 

WRITE_DATA; 

(* qui devono essere aggiunte più linee *) 

END 

UNTIL DONE 
END. 


Figura 5.1 — Parte iniziale di un programma di interpolazione di una curva (se¬ 
gue). 


Studiamo ora più da vicino la procedura GET-DATA e l’algoritmo che usa per si¬ 
mulare dati sperimentali. 

L’algoritmo di “scattering” (sparpagliamento) 

La procedura GET-DATA genera una linea retta con un’intercetta (A) di 2 e una 
tangente (B) di 5, cioè un insieme di dati nelle matrici X e Y che corrispondono alla 
retta: 

y = 2 + 5x 
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PROGRAM CFIT1 A(INPUT,OUTPUT); 

(# Programma Pascal che esegue una #) 

(* interpolazione lineare coi minimi quadrati *) 
(* 22 Ott 80 *) 

CONST 

MAX = 20; 

TYPE 

INDEX = 1..MAX; 

ARY = ARRAY[INDEX] OF REAL; 

VAR 

X, Y, Y _ CALC : ARY; 

N : INTEGER; 

DONE : BOOLEAN; 

SEED, A, B : REAL; 

FUNCTION RANDOM(DUMMY: INTEGER): REAL; 
(* numero random 0 — 1 *) 

(* definisce SEED = 4.0 come globale *) 

CONST 

PI = 3.14159; 


X: REAL; 

I : INTEGER; 

BEGIN (* Random *) 

X := SEED + PI; 

X := EXP(5.0 * LN(X)); 

SEED : = X - TRUNC(X); 

RANDOM := SEED 
END (* Random *); 

Figura 5.2 — Routine alternativa con la procedura RANDOM. 
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PROCEDURE GET_DATA(VAR X, Y : ARY; 

VAR N : INTEGER); 

(# riceve i valori di n e delle matrici x, y #) 

(* y è sparpagliato in modo random su una linea retta *) 

CONST 

A = 2.0; 

B = 5.0; 

VAR 

I, J : INTEGER; 

FUDGE : REAI; 

BEGIN 

WRITE ( ' Falsificazione? ' ) ; 

READLN( FUDGE); 

IF FUDGE < 0.0 THEN DONE := TRUE 

ELSE 

BEGIN 

REPEAT 

WRITE ('Quanti punti?'); 

READLN( N) 

UNTIL (N > 2) AND (N <= MAX); 

FOR I := 1 TO N DO 
BEGIN 

J := N +1 -I; 

X[l]:= J; 

Y[l]:= (A + B* J) 

*(1.0+ (2.0*RANDOM(0) — 1.0)*FUDGE) 
END (* ciclo FOR *) 

END (* IF *) 

END; (# procedura get_data *) 


Figura 5.2 - Routine alternativa con la procedura RANDOM (segue). 


PROCEDURE WRITE_DATA; 

(* stampa i risultati *) 

VAR 

I : INTEGER; 

BECIN 

WRITELN; 

WRITELN(' I X Y'); 

FORI := 1 TONDO 

WRITELN(I:3, X[l]:8:l, Y[l]:9:2); 

WRITELN 

END (* write_data *); 

BEGIN (* programma principale *) 

SEED := 4.0; 

DONE := FALSE; 

REPEAT 

GET_DATA (X, Y, N); 

IF NOT DONE THEN 
BEGIN 

WRITE_DATA; 

(* qui devono essere aggiunte più linee #) 

END 

UNTIL DONE 
END. 


Figura 5.2 — Routine alternativa con la procedura RANDOM (segue). 


Si usa una funzione di generazione di numeri casuali per allontanare i punti dalla 
retta in base al valore della variabile FUDGE. Se FUDGE è zero viene generata una 
linea perfettamente retta; se FUDGE è 0.2 i punti si allontaneranno al massimo del 
20% dalla retta. 

Sarebbe più realistico usare la funzione di generazione di numeri casuali Gaussia- 
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piuttosto di quella uniforme, ma il metodo che abbiamo scelto è il più rapido; I- 
° a '\tre questa parte del programma sarà eliminata quando nella routine di interpola¬ 
rne saranno inseriti dati reali. 

1 algoritmo di "scattering" opera nel modo seguente: la funzione RANDOM resti¬ 
tuisce un numero reale compreso tra 0 e 1, che viene raddoppiato per avere un in¬ 
tervallo tra 0 e 2. Sottraendo 1 l’intervallo si sposta tra -1 e +1 ; il risultato viene infi¬ 
ne moltiplicato per FUDGE e sommato a 1 per ottenere l’intervallo desiderato. 

Notate che X, Y e N vengono passati alla procedura GET-DATA tramite una lista 
di parametri formali; in questo caso non sarebbe strettamente necessario, perchè la 
procedura potrebbe ottenere i valori come variabili globali. D’altra parte questo me¬ 
todo isola effettivamente i dati di ingresso dal programma principale. 

Supponiamo ad esempio di voler eseguire una trasformazione dopo aver letto i 
valori delle matrici X e Y, del tipo: 


In y = 


A 


B 



La lista di parametri “dummy" della procedura GET-DATA dovrebbe contenere i 
valori trasformati, e l’intestazione dovrebbe essere: 

PROCEDURE GET-DATA (VAR XR, LOGY : ARY; VAR N: INTEGER); 


La procedura WRITE-DATA, invece, non ha parametri formali. 


Esecuzione del programma principale 

Compilate il programma e provatelo; vi chiederà di inserire un valore per la varia¬ 
bile FUDGE. La prima volta rispondete con uno zero. Quando vi chiederà il numero 
di punti, rispondete 9; il programma stamperà tre colonne di numeri, come in Figura 
5.3. Notate che gli elementi della matrice X sono generati in ordine decrescente; 
riordineremo le matrici X e Y quando aggiungeremo una routine di ordinamento, nel 
prossimo capitolo. 

Alla fine il programma chiede un altro valore di FUDGE; questa volta rispondete 
0.2. I valori di x saranno gli stessi dell'esecuzione precedente, mentre quelli di y sa¬ 
ranno più grandi o piccoli. Alla fine di questa nuova esecuzione inserite un numero 
negativo per FUDGE, in modo di uscire dal programma e restituire il controllo al si¬ 
stema. 
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Figura 5.3 — Prima esecuzione del programma di interpolazione di una curva. 


Ora potete aggiungere al programma nuove parti, osservando, però, sempre la 
copia delle versioni precedenti; cosi, se avete problemi con le nuove versioni, potete 
tornare alle precedenti e ripartire da capo. 


UNA ROUTINE DI STAMPA DI UN GRAFICO 

Aggiungeremo ora una routine per stampare il grafico dei risultati su di un norma¬ 
le terminale di un calcolatore. I grossi calcolatori hanno, in genere, plotter digitali o 
addirittura teminali video grafici, che consentono una rappresentazione grafica dei 
dati con un alto grado di precisione, ma con grande dispendio di tempo; inoltre i pic¬ 
coli calcolatori non hanno in genere questi dispositivi. 

In alternativa, si possono ottenere grafici su normali terminali o su una stampan¬ 
te, (usando i simboli (+) e (#). Il grafico risultante è una rappresentazione un po' 
rozza dei dati reali, ma può essere utile per trovare errori macroscopici nel pro¬ 
gramma o nei dati di ingresso; inoltre è ottenuto immediatamente, insieme ai risulta¬ 
ti dell’elaborazione, mentre in genere è necessario parecchio tempo per avere la 
stampa di un grafico su un plotter, da parte di un grosso calcolatore. 

Nella Figura 5.4 c’è una procedura Pascal per stampare il grafico di una o due va¬ 
riabili dipendenti al variare di una terza variabile indipendente; la routine stampa la 
variabile indipendente su una retta verticale invece che orizzontale, come nei grafici 
normali, e la variabile dipendente su una retta orizzontale. Il grafico è dunque ruota¬ 
to di 90° in senso orario rispetto ad un normale sistema di assi cartesiani. Noi stam¬ 
peremo il grafico di funzioni semplici, ma si possono visualizzare anche funzioni a 
molti valori; inoltre si può far variare la variabile indipendente in modo non uniforme. 
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PROCEDURE PLOT( (* con matrici *) 

X, (* variabile indipendente *) 

Y, (* variabile dipendente *) *) 

YCALC (# curva interpolata *) : ARY; 

(* e *) M : INTEGER (* numero di punti *); 

(* disegna y e ycalc come una funzione di x per m punti *) 
(* se m è negativo, sono disegnati solo x e y *) 

(* 9 Feb 1981 #) 

CONST 

BLANK = ' 

LINEL = 51; 

VAR 

YLABEL: ARRAY[1 ..6] OF REAL; 

OUT : ARRAY[1.. LINEL] OFCHAR; 

LINES, I, J, JP, L, N: INTEGER; 

ISKIP, YONLY: BOOLEAN; 

XLOW, XHIGH, XNEXT, XLABEL, XSCALE, SIGNXS, 

YMIN, YAAAX, CHANGE, YSCALE, YS10: REAL; 

FUNCTION PSCALE(P: REAL): INTEGER; 

BEGIN 

PSCALE := TRUNC((P - YMIN)/YSCALE + 1) 

END (* pscale *); 

PROCEDURE OUTLIN^NAME: REAL); 

(* stampa una linea #) 

VAR 

I, MAX: INTEGER; 


Figura 5.4 — Procedura di stampa di un grafico. 
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BEGIN 

WRITE(XNAME: 8: 2, BLANK) (* linea di etichetta *); 
AAAX := LINEL + 1; 

REPEAT ( * salta i blank alla fine della linea x) 
MAX := AAAX - 1 

UNTIL (OUT[AAAX] <> BLANK) OR (AAAX = 1 ); 

FORI := 1 TO AAAX DO 
WRITE(OUT[l]); 

WRITELN; 

FORI := 1 TO AAAX DO 

OUT[l] := BLANK (x prossima linea bianca x) 
END (* outlin *); 

PROCEDURE SETUP(INDEX: INTEGER); 

(x pone il più e l'asterisco per la stampa x) 

CONST 

STAR = 

PLUS = ' + 

VAR 

I: INTEGER; 

BEGIN 

I := PSCALE(Y[INDEX]); 

OUT[l] := PLUS; 

IF NOT YONLY THEN 

BEGIN (x aggiunte anche ycalc x) 

I := PSCALE(YCALC[INDEX]); 

OUT[l] ; = STAR 

END 

END (* setup*); 

Figura 5.4 — Procedura di stampa di un grafico (segue). 
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BEGIN (* corpo del tracciato *) 

IFM>0THEN -;(# traccia y e ycalc su x *) 

BEGIN 

N : = M; 

YONLY : = FALSE 

END 

ELSE (* traccia solo y su x *) 

BEGIN 

N := — M; 

YONLY := TRUE 

END; 

(* spazia a linee alternate *) 

LINES := 2 * (N - 1) + 1; 

WRITELN; 

XLOW := X[1 ]; 

XHIGH := X[N]; 

YAAAX := Y[1 ]; 

YMIN : = YAAAX; 

XSCALE := (XHIGH - XLOW)/(LINES - 1); 
SIGNXS : = 1.0; 

IF XSCALE < 0.0 THEN SIGNXS : = -1.0; 

FOR I : = 1 TO N DO 
BEGIN 

IF Y[l] < YMIN THEN YMIN : = Y[l]; 

IF Y[l] > YAAAX THEN YAAAX : = Y[l]; 


YCALC[I]; 
= YCALC [I] 


Figura 5.4 — Procedura di stampa di un grafico (segue). 


IF NOT YONLY THEN 
BEGIN 

IF YCALC[I] < YMIN THEN YMIN : = 
IF YCALC[I] > YAAAX THEN YAAAX : = 
END (* IF yonly *) 


143 




END; 

YSCALE : = (YMAX - YAAIN)/(LINEL - 1); 

YS10 := YSCALE * IO; 

YLABEL[1] := YMIN (* asse y *); 

FOR I : = 1 TO 4 DO 

YLABEL[I + 1] : = YLABEL[I] + YS10; 

YLABEL[6] := YAAAX; 

FORI := 1 TO LINEI DO 

OUT[l] := BLANK (* linea bianca *); 

SETUP(l); 

L:= 1; 

XLABEL : = XLOW; 

ISKIP := FALSE; 

FORI := 2 TO LINES DO (* sistema una linea *) 

BEGIN 

XNEXT : = XLOW + XSCALE * (I - 1 ); 

IF ISKIP THEN WRITELN(' -') 

ELSE 

BEGIN 

L := L + 1; 

WHILE 

(X[L] - (XNEXT - 0.5 * XSCALE))*SIGNXS 
<=0.0 DO 

BEGIN 

SETUP(L) (* sistema la linea di stampa *) 
L := L + 1 

END (* WHILE *); 

OUTLIN(XLABEL) (* stampa una linea *); 
FOR J := 1 TO LINEL DO 

OUT[J] := BLANK (* linea bianca *) 
END (* IF iskip * ); 


Figura 5.4 — Procedura di stampa di un grafico (segue). 
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IF (X[L] - (XNEXT + 0.5 * XSCALE))*SIGNXS > 0.0 
THEN ISKIP : = TRUE 

ELSE 

BEGIN 

ISKIP := FALSE; 

XLABEL := XNEXT; 

SETUP(L) (* sistema la linea di stampa *) 

END 

END (* ciclo FOR *); 

OUTLIN(XHIGH) (* ultima linea *); 

WRITE(' '); 

FOR I ;= 1 TOóDO 

WRITE(' A '); 

WRITELN; 

WRITE(' '); 

FOR I := 1 TOóDO 

WRITE(YLABEL[I]: 9: 1, BLANK); 

WRITELN; 

WRITELN 
END (* plot *); 


Figura 5.4 — Procedura di stampa di un grafico (segue). 


Esecuzione della routine di stampa del grafico 

Fate una copia dell’ultima versione del programma sorgente, e dategli il nome 
CFIT2.PAS. Aggiungete la procedura PLOT subito dopo la WRITE-DATA e prima del¬ 
l’istruzione BEGIN del programma principale, e inserite nel programma principale 
una chiamata alla nuova procedura: 

PLOT(X, Y, Y, -N); 
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immediatamente dopo la chiamata alla procedura WRITE-DATA e prima dell'istru 
zione UNTIL. Assicuratevi che ci sia il punto e virgola tra le chiamate alla WRifg 
DATA e alla PLOT; questo non è invece necessario alla fine della chiamata al| a 
PLOT, ma semplifica le aggiunte successive al programma. Notate che il secondo e 
il terzo argomento della chiamata alla PLOT sono identici, e che l’ultimo è negativo 
per segnalare che deve essere stampato il grafico di una sola curva. 

Compilate il programma e provatelo. Se date un valore di 0.2 per FUDGE l'uscita 
sarà come in Figura 5.5; se invece date il valore 0, avrete una linea quasi retta 



Figura 5.5 — Grafico di y in funzione di x. 


La routine PLOT sarà inserita in tutte le prossime versioni del programma; visto 
che il programma è particolarmente lungo, può convenire registrarla su di un file se¬ 
parato, richiamandola con una direttiva INCLUDE o con un'istruzione EXTERN, en¬ 
trambe descritte nel Capitolo 1. 

Per provare tutti gli aspetti di questa routine, possiamo cercare di stampare il gra¬ 
fico di due curve contemporaneamente, aggiungendo la breve procedura LINFIT nel 
nostro programma. In seguito questa sarà sostituita da un’altra procedura, più signi¬ 
ficativa, quando avremo studiato l’algoritmo di interpolazione lineare di una curva 
con i minimi quadrati. 
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.^ULAZIONE DI UNA ROUTINE 
pi INTERPOLAZIONE di una curva 

Aggiungiamo ora al programma una routine simulata di interpolazione di una cur- 
v3t che genera semplicemente un vettore Y_CALC giacente sulla nostra retta con 
ingente 5 e intercetta 2. In una prossima versione aggiungeremo una vera e pro¬ 
pria routine di interpolazione. 

Aggiungete la procedura LINFIT della Figura 5.6 al programma sorgente, inse¬ 
rendola immediatamente dopo la WRITE_DATA. Dovrete fare alcune modifiche al 
programma principale e alla procedura WRITE_DATA, come mostrato nelle Figure 
5.8 e 5.7; notate che Y_CALC è il terzo parametro nella chiamata alla PLOT, e che 
l'ultimo parametro è positivo. 


PROCEDURE LINFIT(X, Y : ARY; 

VAR Y_CALC : ARY; 

VAR A, B : REAL; 

N : INTEGER); 

(* genera una linea retta per x-y *) 

VAR 

I : INTEGER; 

BEGIN (* linfit *) 

A := 2.0; 

B := 5.0; 

FORI := 1 TONDO 

Y_CALC[I] : = A. + B ★ X[l] 
END (* linfit *); 


Figura 5.6 — Procedura LINFIT di simulazione di un'interpolazione lineare. 
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PROCEDURE WRITE_DATA; 


(* stampa i risultati *) 


I : INTEGER; 

BEGIN 

WRITELN; 

WRITELN(' I X Y Y CALC); 

FOR I : = 1 TO N DO 

WRITELN(I:3, X[l]:8:l, Y[l]:9:2, Y_CALC[I]:9:2); 
WRITELN 

END (* wri*e_da*a *); 


Figura 5.7 — La procedura WRITE_DATA modificata. 


BEGIN (* programma principale *) 

DONE := FALSE; 

REPEAT 

GET _ DATA (X, Y, N); 

IF NOT DONE THEN 
BEGIN 

LINFIT(X, Y, Y _CALC, A, B, N); 
WRITE_DATA; 

PLOT (X, Y, Y_CALC, N) 

END 

UNTIL DONE 
END. 


Figura 5.8 — Programma principale. 
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Esecuzione della routine di stampa del grafico per due curve 

Compilate la nuova versione e provatela. Quando il programma vi chiederà un va¬ 
lore pei" FUDGE rispondete 0.2; otterrete quattro colonne di dati, fra le quali il vetto- 
e y_CALC. Viene poi stampato un grafico di due diverse curve: gli asterischi («) 
r apP resentano ' valori di Y—CALO, e formano una retta quasi perfetta. I (+) rappre¬ 
sentano i valori di y, che sono distribuiti intorno a Y_CALC, come si vede dalla Figu¬ 
ra 5 -9- Se, per un certo valore di x, i simboli coincidono, viene stampato solo l’asteri¬ 
sco. 

Quando il programma vi chiede un altro valore di FUDGE, rispondete zero; y e 
y_CALC avranno lo stesso valore, le due linee si sovrappongono e ne viene stampa¬ 
ta solo una. Alla fine date un valore negativo per FUDGE per uscire dal programma. 


9.00 




* + 

8.00 



* 

♦ 

7.00 



♦ ♦ 


6.00 



* ♦ 


5.00 



* + 


4.00 


+ 

* 


3.00 


+ * 



2.00 


* 



1.00 

+ * 

A 

5.8 

A 

14.7 

A A A 

23.6 32.5 41.4 

A 

50.3 


Figura 5.9 — Grafico di y e Y_CALC in funzione di x. 

Ora che abbiamo scritto e provato sia il programma principale che la procedura 
per stampare i grafici, possiamo passare all’argomento centrale del capitolo. 


L’ALGORITMO DI INTERPOLAZIONE DI UNA CURVA 

Anche se dalla Figura 5.9 potrebbe sembrare che abbiamo completato il nostro 
programma, in realtà non è cosi; per ora abbiamo solo generato i valori di Y_CALC 
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che corrispondono alla nostra linea originale. Ora vogliamo derivare l'algoritmo p er 
una procedura di interpolazione lineare coi minimi quadrati. Cominceremo con pj n . 
trodurre un nuovo vettore r che contiene i residui. 

Ad ogni punto sperimentale, di coordinate x-y, corrisponde un elemento di r che 
rappresenta la differenza tra il valore calcolato di Y_CALC (che indicheremo con 9) 
e il valore originale dì y. Possiamo esprimere questa relazione, in termini matemati¬ 
ci, come: 

fi = V, - Vi (1) 

Può capitare che un punto cada sulla curva calcolata, ma, in generale, circa metà 
dei punti saranno da una parte rispetto alla curva calcolata, e, in corrispondenza di 
questi, il vettore r conterrà valori positivi. Gli altri si troveranno dall’altra parte della 
curva, e corrisponderanno a valori negativi di r. La somma dei residui dovrebbe es¬ 
sere prossima a zero. 

Il criterio di interpolazione coi minimi quadrati è che la somma dei quadrati dei re¬ 
sidui deve essere minimizzata. Il quadrato di ogni residuo sarà positivo, e così an¬ 
che la somma dei quadrati (SRS). Questo criterio può essere espresso come: 

n 2 

SRS = I r,= minimum (2) 

dove n è il numero dei punti x-y (e la lunghezza dei vettori x, y e 9). 

Combinando l’equazione 1 con quella di interpolazione: 

y,= A + Bx, (3) 

abbiamo: 

r, = A + Bx, - y-, (4) 


e: 


SRS = I r, 2 = I (A + Bx, - y,) 2 

i-i i-t 


(5) 


Il problema si riduce nel trovare i valori di A e B che minimizzano la sommatoria 
dell’equazione 5; si può fare in diversi modi. Noi faremo la derivata dell’equazione 5 
rispetto alle due variabili A e B, e porremo il risultato a zero. 


dir 2 

_l_ 

ÓA 


= 0 


and 


dir 2 

~ÒB. 


( 6 ) 
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( 7 ) 


Sostituendo l’equazione 5 nella 6 otteniamo: 

di (A + Bx, - Yi) 2 = Q 
<5B 


di (A + Bx, - Yi) 2 _ 0 
dA 


( 8 ) 


c he è equivalente a: 


21 (A + Bx, - y,) di (A + Bx, - y,) _ q 
dA 


21 (A + Bx, - y f ) di (A + Bx, - y,) _ Q 

de 


(9) 

( 10 ) 


Poiché B, x e y non dipendono da A, e la derivata di A rispetto a se stessa è 1, l’e¬ 
quazione 9 diventa: 


IA + I Bx, = ly, 


( 11 ) 


Analogamente A, x e y non dipendono da B, e l’equazione 10 diventa: 


IAXj + I Bx? = Ix,y, 


( 12 ) 


A e B sono costanti, e possono essere messi a fattor comune nelle sommatorie. 
Le equazioni 7 e 8 diventano allora: 


An + BlXj = ly , 

(13) 

AIx, + Blxf = Ix,y, 

(14) 


Abbiamo riportato il problema' di trovare una retta che passa per un insieme di 
punti x-y dati alla risoluzione di un sistema di due equazioni (13 e 14) lineari nelle 
due incognite A e B (x, y e n sono i dati originali). La soluzione del sistema di trova 
con la regola di Cramer: 


sy; 

Ix, 

2*,y, 

tyj 

n 

Ix, 

Ix, 

Ix J 

1 


(15) 
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n 

Sy, 

8 = . 

Zx, 

£x,y, 


n 

Zx, 


Zx, 

Zx 2 


che corrispondono a: 

A = *x, 2 *y, - Zx,Zx,y, 

nZx, 2 - Zx, Zx, 

e 

g _ nZx,y ; - 1x,1y, 
nix* - Zx,Zy y 


( 16 ) 


07 ) 


(18) 


Il calcolo di A e B è immediato con il calcolatore; la sommatoria di x si ottiene 
sommando i valori della matrice X; la sommatoria di x 2 si ottiene elevando al 
quadrato ogni valore della matrice X e sommando i risultati. 

Le equazioni 17 e 18 si trasformano in: 


A _ (Zxf 1y, - Zx,Zx,y,)/n 
Zx 2 - IXjlXjln 


(19) 


e 


e _ Zx,y, - Zx,Zy ; /n 
Zx 2 - Zx,Zx,/n 


( 20 ) 


dividendo il numeratore e il denominatore per n. 

I denominatori delle equazioni 19 e 20 compaiono nella formula della deviazione 
standard del Capitolo 2. 

Abbiamo richiamato i concetti matematici del metodo di interpolazione coi minimi 
quadrati e abbiamo ricavato le formule per trovare la tangente (B) e l'intercetta (A) 
dell’interpolazione lineare di una curva; ora siamo in grado di affrontare la procedu¬ 
ra di interpolazione LINFIT. 


La procedura di interpolazione di una curva 

In Figura 5.10 è presentata una procedura per interpolare una retta; sostituitela 
alla versione originale di LINFIT. 
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PROCEDURE LINFIT(X, Y : ARY; 

VAR Y_CALC : ARY; 

VAR A, B : REAL; 

N : INTEGER); 

(# interpola una linea retta (y-calc) attraverso 
n coppie di punti x e y *) 

VAR 

I : INTEGER; 

SUAA_X, SUAA_Y, SUM_XY, SUM_X2, 

SUM_Y2, XI, Yl, SXY ,SXX, SYY : REAL; 

BEGIN (* linfit *) 

SUAA_X := 0.0; 

SUM _ Y : = 0.0; 

SUAA_XY := 0.0; 

SUM_X2 := 0.0; 

SUAA_Y2 : = 0.0; 

FOR I : = 1 TO N DO 
BEGIN 

XI := X[l]; 

Yl := Y[l]; 

SUM_X : = SUM_X + XI; 

SUM_Y := SUM_Y + Yl; 

SUM_XY := SUM_XY + XI * Yl; 

SUM_X2 := SUM_X2 + XI * XI; 

SUM_Y2 : = SUM_Y2 + Yl * Yl 
END; 

SXX : = SUM_X2 - SUM_X * SUM_X/N; 

SXY := SUM_XY - SUM_X * SUM_Y/N; 

SYY := SUM_Y2 - SUM_Y * SUM_Y/N; 

B : = SXY/SXX; 

A := ((SUM_X2 * SUM_Y - SUM_X * SUM_XY)/ N)/SXX; 

FOR I := 1 TO N DO 

Y_CALC[I] ;= A + B * X[l] 

END (* linfit *); 


Figura 5.10 — Procedura LINFIT per interpolazione con i minimi quadrati. 
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All’inizio della procedura, alle variabili SUM_X, SUM_Y etc. viene assegnato il 
valore 0, e poi viene usato un ciclo FOR per calcolare le sommatorie. Notate cheaU 
l'inizio del ciclo viene fatto un cambiamento di variabile: 


XI : = X[l 1; 
Yl : = Y[I]; 


In generale richiede più tempo usare un elemento di una matrice piuttosto che 
uno scalare; perciò, quando uno stesso elemento di una matrice viene usato molte 
volte in un ciclo, conviene definire una variabile scalare che lo contiene, e usare 
questa al suo posto. Per altro, alcuni moderni compilatori eseguono automatica- 
mente questa funzione, mediante un ottimizzatore; in questo caso ovviamente non è 
necessario eseguire la trasformazione precedente. 

Le matrici X, Y e Y_CALC e le variabili scalari A, B e N sono parametri formali co¬ 
me prima. In questo modo possiamo richiamare LINFIT in un certo punto del pro¬ 
gramma: 


LINFIT(X, Y, Y_CALC, A, B, N); 


per interpolare X e Y, e richiamarla in un punto successivo per interpolare XI e Yl 
con un diverso numero di punti: 


LINFIT(XI, Yl, Y1C, Al, B1, M); 


Con questa seconda chiamata viene interpolata una retta con tangente B1 e inter¬ 
cetta Al con i punti di XI e Yl. 


Esecuzione del programma di interpolazione di una curva 


Compilate la nuova versione e provatela. Cominciate col dare a FUDGE il valore 
0.2. La retta di asterischi dovrebbe passare attraverso la curva dei Confrontate 
la figura 5.11, che mostra l’interpolazione effettiva, con la 5.9, che mostra quella si¬ 
mulata. Poi date a FUDGE il valore zero; verrà stampata un’unica linea di asterischi 
che rappresenta una retta di intercetta 2 e tangente 5. 
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IL COEFFICIENTE DI CORRELAZIONE 

Ora abbiamo una procedura per calcolare i punti della retta desiderata, ma non 
abbiamo ancora finito. Possiamo ottenere l'equazione di una curva che interpola i 
nostri dati sperimentali, e usarla per prevedere il valore di y dato un certo valore di x. 
In certi casi, però, la nostra soluzione anche se matematicamente corretta, è priva 
di utilità. 

Consideriamo ad esempio i dati dei due grafici della Figura 5.12; in entrambi i casi 
la procedura LINFIT troverà l’equazione di una retta, ma la curva risultante non ci 
dà nessuna informazione, in quanto l’andamento di x non ci dice niente su quello di 
y. Non c’è correlazione tra x e y. 

I dati di Figura 5.13 rappresentano un altro caso in cui la conoscenza di x non è di 
nessun aiuto per prevedere l’andamento di y; anche qui non c’è nessuna correlazio¬ 
ne tra x e y. 

Abbiamo bisogno di una misura quantitativa della correlazione tra x e y, per sape¬ 
re con quanta precisione possiamo prevedere l'andamento di y se conosciamo quel¬ 
lo di x; questa misura è il coefficiente di correlazione. 

Abbiamo visto nel Capitolo 2 che possiamo caratterizzare un insieme di dati con 
la media e la deviazione standard. Possiamo anche calcolare la deviazione standard 
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Figura 5.12 — Quando non c’è correlazione tra x e y. 



Figura 5.13 - Dati molto dispersi. 

di y sulla curva interpolata, che si chiama errore standard di stima (SEE). Il coeffi¬ 
ciente di correlazione confronta la deviazione standard di y (intorno al valor medio) 
con la deviazione standard intorno alla curva interpolata (SEE). 

Il coefficiente di correlazione è zero se non c'è correlazione, come nel caso dei 
dati delle Figure 5.12 e 5.13. D'altra parte il coefficiente di correlazione si avvicina 
tanto più a 1 quando più i dati si avvicinano ad una linea retta. Il coefficiente di cor¬ 
relazione dei dati della Figura 5.11 è 0.99. 

Aggiungeremo ora, nel nostro programma, il calcolo del coefficiente di correla¬ 
zione. 
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programma Pascal per calcolare il Coefficiente di Correlazione 

Con l'aggiunta di poche istruzioni, il nostro programma può calcolare il coefficien¬ 
te di correlazione e gli errori standard dei coefficienti (l'intercetta e la tangente). Gli 
errori standard sono le deviazioni standard dei coefficienti, e si usano per determi¬ 
nare gli intervalli di confidenza per ogni coefficiente. 

Aggiungete l'espressione: 

CORREI_COEF, SIGMA^A, SIGMA_B, SEE : REAL; 

nella sezione VAR che si trova all'inizio del programma; saranno variabili globali. Le 
quattro linee seguenti sono inserite nella procedura LINFIT subito dopo la definizio¬ 
ne dell'intercetta A: 

CORREI_COEF ; = 

SXY/SQRT (SXX*SYY) ; 

SEE : = 

SQRT ( (SUM_Y2_A*SUM_Y_B*SUM_XY) /(N_2) ); 

SIGMA_B ; = SEE/SQRT(SXX); 

SIGMA_A : = SIGMA_B*SQRT(SUM_X2/N); 

Infine le istruzioni di uscita della procedura WRITE_DATA sono sostituite dalle 
seguenti: 

WRITELN('l'intercetta è’, A: 8: 3, 

'sigma è', SIGMA_A:8:3); 

WRITELN('la pendenza è',B:8:2, 

'sigma è',SIGMA_B:8:3); 

WRITELN 

WRITELN (‘il coefficiente di correlazione è’, 

CORREI_COEFF:7:4) 

Con il coefficiente di correlazione abbiamo fornito un'ulteriore possibilità al nostro 
programma, quella di quantificare l’utilità della curva interpolata. Vediamo ora come 
si presenta il programma completo. 


PROGRAMMA PASCAL: INTERPOLAZIONE DI UNA CURVA 
CON I MINIMI QUADRATI PER UN INSIEME DI DATI SIMULATI 

Compilate la nuova versione e provatela. Date a FUDGE il valore 0, otterrete in¬ 
tercetta 2 e tangente 5, come prima; inoltre, i valori di sigma per A e B saranno 0 e il 
coefficiente di correlazione 1. Il grafico rappresenterà una retta di asterischi. 

Date a FUDGE il valore 0.2; avrete dei valori di sigma maggiori di zero per l’inter¬ 
cetta e la tangente, e un coefficiente di correlazione minore di 1. In Figura 5.14 c’è il 
programma completo. 
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PROGRAM CFIT4(INPUT, OUTPUT); 

(* Programma Pascal che esegue *) 

(* l'interpolazione lineare ai minimi quadrati *) 

(* 8 Feb 81 *) 

CONST 

MAX = 20; 

TYPE 

INDEX = 1..MAX; 

ARY = ARRAY[INDEX] OF REAI; 

VAR 

X, Y, Y_CALC : ARY; 

N : INTEGER; 

DONE : BOOLEAN; 

A, B, CORREL_COEF, 

SIGMA_A, SIGMA_B, SEE : REAL; 

PROCEDURE GET _ DATA(VAR X, Y : ARY; 

VAR N : INTEGER); 

(* riceve i valori di n e delle matrici x, y *) 

(* y è sparpagliato in modo random su una linea retta *) 

CONST 

A = 2.0; 

B = 5.0; 

VAR 

I, J : INTEGER; 

FUDGE : REAI; 

BEGIN 

WRITE ( ' Falsificazione? ' ) ; 

READLN( FUDGE); 

IF FUDGE <0.0 THEN DONE : = TRUE 


Figura 5.14 — Il programma completo di interpolazione di una curva. 
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BEGIN 

REPEAT 

WRITE ('Quanti punti?'); 

READLN( N) 

UNTIL (N>2) AND (N< = MAX); 

FORI := 1 TONDO 
BEGIN 

J := N +1 -I; 

X[l] J; 

Y[l] := (A + B*J) 

*(1.0 + (2.0*RANDOM(0)- 1.0)*FUDGE) 
END (* ciclo FOR *) 

END (* ELSE *) 

END ( » procedura get_data *); 

PROCEDURE WRITE _ DATA; 

(* stampa i risultati *) 

VAR 

I : INTEGER; 

BEGIN 

WRITELN; 

WRITELNf I X Y YCALC'); 

FORI := 1 TONDO 

WRITELN(I:3, X[l]:8:1, 

Y[l]:9:2, Y_CALC[I]:9:2); 

WRITELN; 

WRITELN ('l'intercetta è', A :8:3, 

sigma è', SIGMA_A :8:3); 

WRITELN(' la pendenza è', B :8:2, 

'. sigma è', SIGMA_B :8:3); 

WRITELN; 

WRITELN ('Il coefficiente di correlazione è', 
CORREL_COEFF ;7:4) 

END (* write_data *); 


Figura 5.14 — Il programma completo di interpolazione di una curva (segue). 
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PROCEDURE LINFIT(X, Y : ARY; 

VAR Y_CALC: ARY; 

VAR A, B : REAL; 

N : INTEGER); 

(* interpola una linea retta (y-calc) attraverso 
n coppie di punti xey *) 

VAR 

I : INTEGER; 

SUM_X, SUAA_Y, SUM_XY, SUM_X2, 
SUM_Y2 ( XI, Yl, SXY ,SXX, SYY : REAL; 

BEGIN (* linfit *) 

SUM_X := 0.0; 

SUM_Y := 0.0; 

SUM_XY := 0.0; 

SUM_X2 : = 0.0; 

SUM_Y2 := 0.0; 

FOR I := 1 TO N DO 
BEGIN 

XI := X[l]; Yl := Y[l]; 

SUM_X := SUAA_X + XI; 

SUM_Y := SUM_Y + Yl; 

SUM_XY := SUAA_XY + XI * Yl; 
SUM_X2 := SUM_X2 + XI * XI; 
SUM_Y2 : = SUM_Y2 + Yl * Yl 
END; 

SXX : = SUM_X2 - SUM_X * SUM_X/N; 
SXY := SUM_XY - SUM_X * SUM_Y/N; 
SYY := SUM_Y2 - SUM_Y * SUM_Y/N; 
B := SXY/SXX; 

A := ((SUAA_X2 * SUM_Y - SUM_X 
* SUM_XY)/N)/SXX; 


Figura 5.14 — Il programma completo di interpolazione di una curva (segue). 
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CORREI. _COEF : = 

SXY/ SQRT( SXX * SYY); 

SEE : = 

SQRT( (SUM_Y2 - A*SUM_Y - B*SUM_XY) 

/(N - 2)); 

SIGMA _B := SEE/SQRT(SXX); 

SIGMA _ A := SIGMA _B * SQRT( SUM_X2/N); 

FOR I := 1 TO N DO 

Y_CALC[I] := A + B * X[l] 

END (* linfit *); 

(* PROCEDURE plot 

(x, y, y_calc : ary; 

n : integer); 

extern; *) 

(*$F PLOT.PAS *) 

BEGIN (* programma principale *) 

DONE := FALSE; 

REPEAT 

GET_DATA (X, Y, N); 

IF NOT DONE THEN 
BEGIN 

LINFIT(X, Y, Y _CALC, A, B, N); 

WR ITE _ DATA; 

PLOT (X, Y, Y _ CALC, N) 

END 

UNTIL DONE 
END. 


Figura 5.14 — Il programma completo di interpolazione di una curva (segue). 
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SOMMARIO 

La tecnica di sviluppo modulare usata per questo programma ci ha consentito di 
provare le singole procedure man mano che venivano scritte. Abbiamo cominciato 
dal programma principale, e abbiamo aggiunto di volta in volta le procedure per si- 
mulare dati, stampare il grafico dei risultati, calcolare la curva interpolata e il coeffi¬ 
ciente di correlazione. La procedura di interpolazione LINFIT sostituisce una prece¬ 
dente procedura che era stata scritta solo per provare la routine di stampa del grafi¬ 
co. 

Abbiamo ora un programma che esegue l’interpolazione lineare di una curva; pur¬ 
troppo non serve a un granché. Infatti può interpolare soltanto dati prodotti da una 
funzione di generazione di numeri casuali, mentre noi vogliamo modificare la proce¬ 
dura GET_DATA in modo che possa acquisire dati reali da tastiera o da un file su di¬ 
sco. Affronteremo questo problema dopo aver aggiunto una routine di ordinamento, 
nel prossimo capitolo. 
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CAPITOLO 6 


ORDINAMENTO 


INTRODUZIONE 

In questo capitolo svilupperemo diversi algoritmi di ordinamento: due ordina¬ 
menti a bolle, un ordinamento di Shell, un ordinamento veloce ricorsivo e uno non 
ricorsivo. Alla fine inseriremo una di queste routine nel programma di interpolazio¬ 
ne di una curva del Capitolo 5. 

Cominciamo col discutere il motivo per cui è necessario inserire una routine di 
ordinamento nel nostro programma. 


TRATTAMENTO DI DATI SPERIMENTALI 


Il programma di interpolazione di una curva che abbiamo scritto nel capitolo pre¬ 
cedente acquisiva i dati da una funzione di generazione di numeri casuali; un pro¬ 
gramma più aderente alla realtà dovrebbe acquisirli da una tastiera o da un file su 
disco; in alternativa i dati potrebbero far parte del programma stesso. 

In particolare potremmo voler interpolare una curva da un insieme di dati speri¬ 
mentali non in ordine numerico. Supponiamo di voler studiare la dilatazione termi¬ 
ca 0i un materiale, partendo dalla misurazione di diverse temperature e delle corri¬ 
spondenti lunghezze; portiamo il materiale ad una certa temperatura e ne misuria¬ 
mo la lunghezza; aumentiamo la temperatura e misuriamo la temperatura del cam¬ 
pione e la sua lunghezza. Evidentemente non è opportuno continuare con questo 
sistema, poiché la lunghezza potrebbe essere misurata prima che la temperatura 
del pezzo campione sia uniforme; le coppie di valori misurati conterranno tutte un 
certo errore. 

Una migliore tecnica sperimentale sarebbe quella di arrivare alla temperatura 
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desiderata una volta da valori più alti e un’altra da valori più bassi; le rilevazioni da- 
rebbero risultati del tipo: 


Temperatura 

100 

300 

200 

500 

400 


Lunghezza 

8.0 

19.0 

13.5 
30.0 

24.5 


Col programma di interpolazione di una curva dell’ultimo capitolo potremmo tro¬ 
vare immediatamente un'interpolazione coi minimi quadrati di questi dati, inseren¬ 
doli direttamente nella procedura GET_DATA: 

PROCEDURE GET_DATA... 


BEGIN 


N : 

= 5 



X[11 

= 100; 

Y[1] 

= 8.0; 

X[2] 

= 300; 

Y[2] 

= 19.0 

X[3| 

= 200; 

Y[3] 

= 13.5 

X[4] 

= 500; 

Y[4] 

= 30.0 

X[5] 

= 400; 

Y[5] 

= 24.5 


END; 


Se ora eseguiamo il programma, però, ci accorgeremo che la procedura PLOT ci 
darà una rappresentazione inesatta dei dati, in quanto la matrice della variabile indi- 
pendente X deve contenere valori in ordine crescente o decrescente. In sostanza I 
dati devono essere ordinati. Nel capitolo precedente la PLOT operava correttamente 
perchè la matrice X era generata in ordine decrescente. Notate invece che non ha 
importanza l’ordine dei valori della matrice della variabile dipendente Y. 

Inizieremo lo studio delle routine di ordinamento da quella che è più semplice da 
programmare, l'ordinamento a bolla. 


ORDINAMENTO A BOLLA 

Ordinare un insieme di valori significa metterli in ordine crescente o decrescente; 
i dati possono essere elementi di un array di numeri reali, oppure un gruppo di carat¬ 
teri alfanumerici chiamati records. Esistono diversi algoritmi di ordinamento, alcuni 
molto veloci, altri molto lenti. Alcuni sono molto veloci se i dati sono già pressoché 
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ordinati, altri invece sono molto lenti in queste condizioni. Alcuni richiedono spazio 
ji lavoro oltre a quello occupato dai dati stessi, altri no. 

Il primo algoritmo di ordinamento che studieremo si chiama ordinamento a bolla; 
è il più facile da capire e da programmare, ma purtroppo è anche il più lento. Per in¬ 
siemi con una dozzina di elementi la differenza di velocità non è comunque molto 
importante. 

Nell’ordinamento a bolla, ogni elemento viene confrontato con gli altri non ordina¬ 
ti; quando si trova una coppia non ordinata, i due elementi sono scambiati. Ci sono 
due cicli, uno interno all’altro; quello più esterno va da 1 a N-1, dove N è la lunghez¬ 
za dell’array; quello più interno va da M+1 (dove M è l'estremo inferiore del ciclo e- 
sterno) a N. In questo modo l’elemento più piccolo “galleggia’’ verso la cima dell’ar- 
ray durante il processo di ordinamento, da cui il nome di ordinamento a bolla. 

Inseriremo questa prima routine di ordinamento in un programma studiato per 
provare l’efficienza di diverse routine di ordinamento sotto diverse condizioni; le al¬ 
tre routine saranno scritte sotto forma di procedure, anche se ognuna potrebbe es¬ 
sere incorporata nel programma TSTSORT. 


PROGRAMMA PASCAL: 

ORDINAMENTO A BOLLA E PROGRAMMA TSTSORT 

Il programma della Figura 6.1 contiene una routine "pilota" oltre alla procedura di 
ordinamento. Quando viene eseguito, chiede all'utente il numero di elementi che de¬ 
vono essere ordinati, e poi chiama una funzione di generazione di numeri casuali; 
questa genera il numero di dati desiderato, compresi tra 0 e 100, e li stampa sulla 
console, 10 per riga. L’istruzione CHR (7) fa suonare il campanello della console al¬ 
l’inizio e alla fine del processo di ordinamento, in modo da consentire un confronto 
tra le diverse routine. Se non avete un terminale ASCII dovete cambiare o eliminare 
questa espressione. 

Alla fine viene stampato sulla console l'array ordinato, insieme con la parola 
RANDOM; il campanello della console suona una terza volta e viene nuovamente 
chiamata la procedura di ordinamento. Questa volta però l'ordinamento viene fatto 
su di un insieme di dati già ordinato. Alla fine di questa seconda fase di ordinamento 
la campana della console suona una quarta volta e viene stampato nuovamente l’ar- 
ray ordinato, seguito dalla parola ‘ordinato’. 

Nella terza parte del programma viene generato un array in ordine inverso, e vie¬ 
ne chiamata la routine di ordinamento per la terza volta; alla fine viene stampato 
l’array ordinato seguito dalla parola ‘inversi’. 

Scrivete il programma della Figura 6.1 ed eseguitelo; cercate un insieme di dati 
abbastanza numeroso da richiedere alcuni minuti per l’ordinamento, e prendete no¬ 
ta del tempo necessario nei tre casi; in seguito confronterete questa routine di ordi¬ 
namento con quelle che studieremo più avanti nel capitolo. Se non avete un termi- 
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naie video, potete eliminare le chiamate alla procedura PRINT in modo che gli array 
non vengano stampati. 

I programmi di questo capitolo usano la funzione RANDOM per generare numeri 
casuali; se non c’è nel vostro Pascal, inserite nel programma la funzione RANDOlyi 
della Figura 5.2 del Capiioio 5. 


PROGRAM TSTSORT(INPUT, OUTPUT); 

(* prova di velocità di una routine di ordinamento *) 

CONST 

AAAX = 1000; 

TYPE 

ARY = ARRAY[1 ..300] OF REAL; 

VAR 
X: ARY; 

N, I: INTEGER; 

PROCEDURE PRINT; 

VAR 

I: INTEGER; 

BEGIN 

WRITELN; 

FOR I : = 1 TO N DO 
BEGIN 

WRITE(X[I] :7:2); 

IF (I MOD 10) = 0 THEN WRITELN 
END 

END; 


Figura 6.1 — Una procedura di ordinamento a bolla con programma principale. 
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PROCEDURE (* bubble *)SORT(VAR A: ARY; N: INTEGER); 

VAR 

l ( J: INTEGER; 

HOLD: REAL; 

BEGIN (* procedure sort *) 

FOR I : = 1 TO N - 1 DO 
FORJ:= I + 1TO N DO 
BEGIN 

IF A[l] > A[J] THEN 
BEGIN 

HOLD : = A[l]; 

A[l] : = A[J]; 

A[J] := HOLD 

END 

END (* FOR *) 

END (* procedure sort *); 

BEGIN (a programma principale a) 

REPEAT 

REPEAT 

WRITELN; 

WRITE ('Quanti punti?'); 

READLN(N) 

UNTIL N <= MAX; 

FORI := 1 TON DO 

X[l] := 100 * RANDOM(O); 

PRINT; 

WRITE(CHR(7)); 

SORT(X, N) (a numeri random a); 

WRITE(CHR(7)); 

PRINT; 


Figura 6.1 — Una procedura di ordinamento a bolla con programma principale 
(segue). 
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WRITELN(' rondoni'); 
WRITE(CHR(7)); 

SORT(X, N)(* numeri ordinati *); 
WRITE(CHR(7)); 

PRINT; 

WRfTELN ('ordinato'); 

FOR I : = 1 TO N DO 

X[l] := N + 1 - I; 
WRITE(CHR(7)); 

SORT(X, N) (* numeri inversi #); 
WRITE(CHR(7)); 

PRINT; 

WRITELN ('inversi'); 

UNTIL N < 5 
END. 


Figura 6.1 - Una procedura di ordinamento a bolla con programma principale 
(segue). 

Studieremo ora una routine di ordinamento a bolla leggermente più efficiente, co¬ 
me capirete meglio in seguito. 

Aggiunta di una routine separata di scambio 

Quando un’operazione deve essere eseguita più di una volta, è opportuno usare 
una procedura. Più avanti inseriremo nel programma di interpolazione del capitolo 
precedente una procedura di ordinamento, in cui sarà necessario scambiare un da¬ 
to di una matrice Y ogni volta che scambiamo il dato corrispondente nella matrice X; 
la parte centrale della routine di ordinamento diventerà allora: 

BEGIN 

HOLD : = A(l]; 

All) : = A[J] 

A[J) : = HOLD; 

HOLD : = B(l]; 

B[l] : = B(J]; 

B(J] : = HOLD 
END; 
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In questo modo si effettua prima lo scambio tra due elementi di un array, e poi lo 
sC ambio tra quelli corrispondenti dell'altro array. Come nel programma di Figura 
gl, l'operazione di scambio richiede una terza variabile che si chiama HOLD. 

invece che ripetere le istruzioni di scambio ogni volta che è necessario, è più ele¬ 
gante creare una procedura, come vedremo nella seconda versione della routine di 
ordinamento a bolla. 


PROCEDURA PASCAL: ORDINAMENTO A BOLLA CON SCAMBIO 


Nella Figura 6.2 c’è una nuova procedura di ordinamento, che contiene a sua vol¬ 
ta una procedura separata di nome SWAP per effettuare lo scambio tra due elemen¬ 
ti. Aggiungetela al vostro primo programma di ordinamento. Il codice sorgente di 
questa nuova versione è semplice da capire; inoltre la routine può essere facilmente 
modificata per ordinare due o tre array, A, B e C. Si possono aggiungere le istruzio¬ 
ni: 


SWAP (B|l], B[J]); 
SWAP (C[l), C[J]>; 


immediatamente dopo la prima chiamata alla procedura SWAP. La nuova versione è 
più rapida della prima, quando l'insieme dei dati è già ordinato; negli altri casi è più 
lenta. 


Esecuzione della nuova versione 

Sostituite la nuova versione della procedura SORT al posto dell’originale. Se la 
prima versione della SORT è su un file separato su disco, fate una seconda copia. 
Modificate la seconda versione secondo il listing di Figura 6.2 e datele un nome co¬ 
me SORT.PAS, o comunque come quello che avete usato nella direttiva INCLUDE. 
Conservate la versione originale su un file con un altro nome. Se la procedura SORT 
fa parte del vostro programma principale, fate una copia dell’intero programma, poi 
modificate la SORT secondo il listing di Figura 6.2. Compilate ed eseguite la nuova 
versione; i risultati dovrebbero essere gli stessi. 

Notate che la SWAP è una procedura locale della SORT, e non può essere usata 
da altre procedure esterne alla SORT; se, in seguito, sarà necessaria per altre pro¬ 
cedure, bisognerà renderla globale, separandola dal corpo della SORT. 

Adesso studieremo una routine di ordinamento più sofisticata e un po’ più difficile. 
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PROCEDURE (* bubble *) SORT(VAR A: ARY; N: INTEGER); 

(# Adottato da 'Introduction to Pascal,' 

R. Zaks, Sybex, 1980 *) 

VAR 

NO_CHANGE: BOOLEAN; 

J: INTEGER; 

PROCEDURE SWAP(VAR P, Q: REAL); 

VAR 

HOLD: REAL; 

BEGIN 

HOLD := P; 

P:= Q; 

Q : = HOLD 
END (* swap * ); 

BEGIN (* procedure sort *) 

REPEAT 

NO_CHANGE := TRUE; 

FOR J := 1 TO N - 1 DO 
BEGIN 

IF A[J] > A[J +1 ] THEN 
BEGIN 

SWAP(A[J], A[J + 1]); 

NO_CHANGE := FALSE 

END 

END (* FOR *) 

UNTIL NO_CHANGE 
END (* procedure sort *); 


Figura 6.2 — Una variante dell’ordinamento a bolla, con procedura separata 
SWAP. 
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ORDINAMENTO DI SHELL 

Il maggior difetto dell'ordinamento a bolla è che spesso esegue più confronti e 
5 cambi di quanto non sia necessario; può capitare che un elemento sia spostato da 
)f , capo all'altro dell’array, e, poco dopo, rimesso al posto di prima. 

L'ordinamento di Shell -Metzner è, in genere, più efficiente; all'inizio i confronti 
ve ngono fatti tra elementi distanti, ad esempio tra il primo e quello di mezzo. Per in¬ 
ferni con meno di una dozzina di elementi il metodo a bolla e quello di Shell-Me- 
izner impiegano tempi confrontabili, mentre aH’aumentare del numero di elementi 
quello di Shell diventa sensibilmente più veloce, soprattutto per insiemi con più di 50 
qlementi. 

Con il programma TSTSORT della Figura 6.1 possiamo valutare la differenza di 
velocità tra i due metodi. 


PROCEDURA PASCAL: ORDINAMENTO DI SHELL-METZNER 

Modificate la vostra routine di ordinamento secondo il listing della Figura 6.3. No¬ 
tate che la procedura SWAP è la stessa di prima. Eseguite il programma e confron¬ 
tate il tempo di ordinamento con quello del metodo a bolla; vedrete che è minore, e 
anche che il programma è più veloce su dati ordinati. 


PROCEDURE (* shell *) SORT(VAR A: ARY; N: INTEGER); 

(# ordinamento di Shell-Metzner *) 

(* Adattato da 'Programming in Pascal', 

P. Grogono, Addison —Wesley, 1980 *) 

VAR 

DONE: BOOLEAN; 

JUMP, I, J: INTEGER; 


Figura 6.3 — Una procedura di ordinamento di Shell. 
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PROCEDURE SWAP(VAR P, Q: REAL); 

VAR 

HOLD: REAL; 

BEGIN 

HOLD := P; 

P:=Q; 

Q : = HOLD 
END (* swap *); 

BEGIN 

JUMP := N; 

WHILE JUMP > 1 DO 
BEGIN 

JUMP := JUMP DIV 2; 

REPEAT 

DONE := TRUE; 

FOR J := 1 TO N - JUMP DO 

BEGIN 

I := J + JUMP; 

IF A[J] > A[l] THEN 

BEGIN 

SWAP(A[J], A[l]); 
DONE : = FALSE 

END (* IF *) 

END (* FOR *) 

UNTIL DONE 
END (* WHILE *) 

END (* sort *); 


Figura 6.3 — Una procedura di ordinamento di Shell (segue). 
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Ideila discussione dell’ultimo e più complesso metodo di ordinamento, introdurre- 
0 || concetto di ricorsività, e presenteremo una versione ricorsiva e una non ricor¬ 
da del programma di ordinamento. 


ORDINAMENTO veloce 

Abbiamo visto che la tecnica di ordinamento a bolla è facile da programmare e da 
c apir e , mentre quella di Shell è un po’ più complicata ma più veloce. Entrambi gli al¬ 
goritmi possono essere codificati senza difficoltà in linguaggi evoluti come il BASIC 
e il FORTRAN. Il terzo algoritmo che considereremo si chiama “ordinamento velo¬ 
ce”, ed è ancora più complesso dell'ultimo che abbiamo visto; in genere è più velo¬ 
ce sia di quello a bolla che di quello di Shell, a meno che i dati siano ordinati o quasi; 
in questo caso è molto più veloce quello di Shell, mentre l'ordinamento veloce im¬ 
piega circa lo stesso tempo per insiemi di dati ordinati e disordinati. 


PROCEDURA PASCAL: 

UNA ROUTINE RICORSIVA DI ORDINAMENTO VELOCE 

La prima versione dell’ordinamento veloce è ricorsiva, cioè contiene una proce¬ 
dura che richiama se stessa; uno svantaggio di questo algoritmo è che non può es¬ 
sere codificato direttamente in BASIC o in FORTRAN proprio a causa della sua ri¬ 
corsività. 

L'ordinamento a bolla comincia col confrontare elementi vicini; quello di Shell 
confronta il primo elemento con quello di mezzo; l’ordinamento veloce confronta gli 
elementi che si trovano agli estremi opposti dell'array, in modo che il primo scambio 
può avvenire tra elementi molto distanti. 

La procedura PARTIT viene chiamata ripetutamente per operare su diverse parti 
dell’array: divide l’array a metà e sposta gli elementi in modo da avere tutti quelli a 
sinistra più piccoli di quelli a destra; le due nuove parti sono nuovamente divise a 
metà e il procedimento viene ripetuto. La suddivisione continua fino ad avere diversi 
insiemi di un solo elemento; a questo punto evidentemente l’array è ordinato. 

Vi conviene conservare entrambe le versioni dell’ordinamento a Shell e di quello 
veloce (Figura 6.4); in genere sarà più conveniente usare quest’ultimo, ma se vi ca¬ 
pita di ordinare insiemi già quasi ordinati, vi converrà quello di Shell. 

Nel prossimo paragrafo studieremo come convertire questo ordinamento veloce 
in una procedura non ricorsiva. Una procedura ricorsiva fa una copia di se stessa e 
di ogni parametro non variabile ad ogni livello di ricorsività; d'altra parte l’insieme or¬ 
dinato con la versione ricorsiva dell’ordinamento veloce di Figura 6.4 era dichiarato 
come parametro variabile nelle procedure QSORT e PARTIT, e quindi non viene mai 
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duplicato. Questo è il motivo per cui è possibile scrivere una versione non ricorsiv 
della procedura. I parametri scalari, però, che costituiscono gli indici dei sottoinsi e 
mi, sono unici, quindi sono duplicati ad ogni chiamata ricorsiva; dunque sarà nece$ 
sario fare copie separate di questi parametri nella versione non ricorsiva. 


PROCEDURE (* quick *) SORT(VAR X: ARY; N: INTEGER); 
(# una routine di ordinamento ricorsiva *) 

(* Adattato da 'The design of Well — 

Structured and Correct Programs,' 

S. Alagic, Springer —Verlag, 1978 *) 

PROCEDURE QSORT(VAR X: ARY; M,N: INTEGER); 

VAR 

I, J: INTEGER; 

PROCEDURE PARTIT(VAR A: ARY; VAR l,J: INTEGER; 

LEFT, RIGHT: INTEGER); 

VAR 

PIVOT; REAL; 

PROCEDURE SWAP(VAR P, Q: REAL); 

VAR 

HOLD: REAL; 

BEGIN 

HOLD := P; 

P ;= Q; 

Q:= HOLD 
END (* swap *); 


Figura 6.4 — Una versione ricorsiva dell'ordinamento veloce. 
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BEGIN 

PIVOT := A[(LEFT + RIGHT) DIV 2]; 

I := LEFT; 

J : = RIGHT; 

WHILE I <= J DO 
BEGIN 

WHILE A[l] < PIVOT DO 
I := I + 1; 

WHILE PIVOT < A[J] DO 
J := J - 1; 

IF I <= JTHEN 
BEGIN 

SWAP(A[I], A[J]); 

I ;= I + 1; 

J := J - 1 

END 

END (* WHILE *) 

END (* partit *); 

BEGIN (* qsort *) 

IF M < N THEN 
BEGIN 

PARTIT(X, I, J, M, N) (* divide in due *); 
QSORT(X, M, J) (* ordina parte sinistra #); 
QSORT(X, I, N) (* ordina parte destra *) 

END 

END (* qsort *); 

BEGIN (* sort *) 

QSORT(X, 1, N) 

END (* sort ★); 


Figura 6.4 — Una versione ricorsiva dell’ordinamento veloce (segue). 
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PROCEDURA PASCAL: 

UNA ROUTINE NON RICORSIVA 
DI ORDINAMENTO VELOCE 

La Figura 6.5 mostra una versione non ricorsiva dell'ordinamento veloce; il tempo 
di esecuzione è un po' più lungo di quella ricorsiva, che resta quindi più conveniente 
se si programma in Pascal; la versione non ricorsiva è invece necessaria in BASIC e 
in FORTRAN, linguaggi che non consentono ricorsività. I parametri di destra e di si¬ 
nistra per le chiamate simulate sono contenuti negli array interi LEFT e RIGHT. 

Il pivot è inizialmente l’ultimo elemento dell'array; questa scelta è assolutamente 
inadeguata se l'array è già ordinato, in ordine crescente o decrescente. Perciò l’ele¬ 
mento pivot è confrontato con altri due, il primo e quello di mezzo; l’elemento di 
mezzo di questi tre, quindi nè il più piccolo nè il più grande, viene scelto come pivot. 
Questa scelta accelera di molto il processo di ordinamento quando l'array è già ordi¬ 
nato in un senso o nell’altro. 

In questa versione, ad ogni suddivisione viene ordinato il più piccolo dei due sot¬ 
toinsiemi prima del più grande, minimizzando così lo spazio per memorizzare gli in¬ 
dici non ordinati. 

Torniamo ora al nostro programma di interpolazione, che è stato il punto di par¬ 
tenza per la discussione delle routine di ordinamento. 


AGGIUNTA DELLA ROUTINE DI ORDINAMENTO 

NEL PROGRAMMA DI INTERPOLAZIONE DI UNA CURVA 


Il passo successivo consisterà nell’inserire una delle routine di ordinamento nel 
programma di interpolazione del Capitolo 5. L’ordinamento veloce ricorsivo è proba¬ 
bilmente il migliore, ma potete anche scegliere quello di Shell. Anche ora tenete una 
copia della versione precedente del programma, in modo da avere un punto di par¬ 
tenza sicuro nell’eventualità che la nuova versione si complichi al di là del previsto. 

Occorre fare due modifiche alla routine di ordinamento, in modo che l’array Y sia 
ordinato insieme a X, e precisamente l'array Y deve essere aggiunto alla lista dei pa¬ 
rametri nell'intestazione, e va aggiunta un’altra chiamata alla procedura SWAP. 

Se scegliete l’ordinamento veloce, modificate l’intestazione nel modo seguente: 


PROCEDURE (*QUICK*) SORT 
(VAR X, Y : ARY; 

N : INTEGER); 
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Figura 6.5 — Una versione non ricorsiva dell'ordinamento veloce. 
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BEGIN 

I := LEFT[SP]; 

J := RIGHT[SP]; 

PIVOT := X[J]; 

AAID := (I 4- J) DIV 2; 

IF (J - I) > 5 THEN 

IF ((X[MID] < PIVOT) AND (X[MID] > X[l])) 

OR 

((X[MID] > PIVOT) AND (X[MID] < X[l])) 
THEN SWAP( X[MID], X[J]) 

ELSE 

IF ((X[l] < X[MID]) AND (X[l] > PIVOT)) 

OR ((X[l] > X[MID]) AND (X[l] < PIVOT)) 
THEN SWAP( X[l], X[J]); 

PIVOT := X[J]; 

WHILE I < J DO 
BEGIN 

WHILE X[t] < PIVOT DO 
I := I + 1; 

J := J - 1; 

WHILE (I < J) AND (PIVOT < X[J]) DO 
J := J - 1; 

IF I < J THEN SWAP(X[I], X[J]) 

END (* WHILE *); 

J := RIGHT[SP] (* pivot to i *); 

SWAP(X[I], X[J]); 

IF I - LEFT[SP] >= RIGHT[SP] - I THEN 
BEGIN (* pone prima la parte più breve *) 
LEFT[SP+1] := LEFT[SP]; 

RIGHT[SP +1] := I - 1; 

LEFT[SP] := I + 1 
END 


Figura 6.5 — Una versione non ricorsiva dell’ordinamento veloce, (segue) 
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ELSE 

BEGIN 

LEFTtSP+1] := I + 1; 
RIGHTtSP+1] := RIGHT[SP]; 
RIGHT[SP] : = I - 1 

END; 

SP := SP + 1 (* push stock *) 

END (* IF *) 

END (★ WHILE *) 

END (* introduce nella stack *) 


Figura 6.5 — Una versione non ricorsiva dell'ordinamento veloce, (segue) 


Poi, circa alla fine della procedura PARTII, aggiungete l'istruzione: 
SWAP (Y[l), Y[J)); 


subito dopo la chiamata: 
SWAP (A[l], A[J]); 


La routine di ordinamento può essere aggiunta al programma di interpolazione 
lineare in diversi modi; il più semplice è di inserirla subito dopo la procedura 
GET_DATA; per far ciò, inserite l’istruzione: 

SORT(X, Y, N); 


nel programma principale; se la routine è chiamata dopo il calcolo dell’interpolazio- 
ne, avremo da lavorare su tre array: X, Y e Y_CALC. Perciò eseguiremo l'ordina¬ 
mento subito dopo avere ottenuto i dati dalla procedura GET_DATA, inserendo la 
chiamata alla procedura SORT subito dopo il comando: 

GET_DATA(X, Y, N) 


alla fine del programma principale. 
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Le direttive INCLUDE e EXTERN per la procedura di Ordinamento 


In alternativa, possiamo mettere la procedura di ordinamento in un file su disco 
separato, chiamato SORT.PAS, e richiamarlo con una direttiva: 

(*$l SORT.PAS*) 

Inserite questa linea appena prima della direttiva per la procedura PLOT. Questo 
approccio è molto più versatile; si possono provare facilmente tutte e quattro le rou¬ 
tine di ordinamento senza modificare il programma di interpolazione. Naturalmente 
bisogna ricompilare l’insieme del programma e della routine. Supponiamo che le 
routine di ordinamento a bolla, di Shell, e le due di ordinamento veloce si chiamino 
rispettivamente: 

SORTB.PAS 
SORTS.PAS 
SORTO. PAS 
SORTN.PAS 


Potete cambiare il nome di ognuna di esse in SORT.PAS, e eseguire il programma 
principale. 

Una terza possibilità è quella di mettere le routine di ordinamento in un file sepa¬ 
rato, e richiamarle con un’istruzione del tipo: 

PROCEDURE SORT (VAR X, V: ARY; 

N : INTEGER); 

EXTERN; 

Eseguite il programma di interpolazione dopo aver aggiunto la routine di ordina¬ 
mento; verificate che gli elementi dell'array X siano messi in ordine crescente, e che 
l’array Y sia ordinato contemporaneamente a X. La pendenza del grafico prodotto 
dovrebbe essere positiva. 


SOMMARIO 

Abbiamo visto le differenze tra tre comuni routine di ordinamento: quella a bolla, 
quella di Shell e quella veloce; sono tutte previste per operare su numeri reali, ma 
tenete presente che possono essere facilmente modificate per ordinare numeri inte¬ 
ri, caratteri o stringhe di caratteri; basta ricordarsi di dichiarare la variabile HOLD 
dello stesso tipo degli elementi dell'array X che deve essere ordinato. 

Ora che il programma di interpolazione di una curva è in grado di trattare dati spe¬ 
rimentali reali, possiamo usarlo con equazioni più complesse; questo è l’argomento 
del Capitolo 7. 
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CAPITOLO 7 


INTERPOLAZIONE DI UNA CURVA 
CON IL METODO DEI MINIMI QUADRATI 


INTRODUZIONE 

In questo capitolo svilupperemo diversi programmi di interpolazione di una curva 
con il metodo dei minimi quadrati. Ci proponiamo di generalizzare il programma che 
abbiamo già visto, in modo che diventi uno strumento più utile e più adeguato alla 
realtà, in una vasta gamma di situazioni sperimentali. Finora ci siamo limitati all’e¬ 
quazione di una retta; il primo programma di questo capitolo è fatto per una parabo¬ 
la, cioè una curva descritta da un'equazione polinomiale di secondo grado. In segui¬ 
to ci occuperemo di equazioni, polinomiali e no, di grado superiore, in cui i termini 
contenenti l'incognita sono lineari. 

Useremo un vettore e una matrice di dati; quando il programma è in esecuzione, 
dobbiamo inserire da tastiera il grado dell'equazione polinomiale. Infine realizzere¬ 
mo un programma di interpolazione per dati sperimentali; tra le equazioni risolte ci 
sono quelle della capacità termica e della pressione di un vapore. Inoltre, nel pro¬ 
gramma per un'equazione di stato a tre variabili, cercheremo soluzioni per equazio¬ 
ni a coefficienti non lineari. 


INTERPOLAZIONE DI UNA PARABOLA 

Nel Capitolo 5 abbiamo scritto un programma di interpolazione con i minimi qua¬ 
drati, per calcolare i coefficienti A e B dell’espressione: 

y = Ax + B (1) 

La (1) è l'equazione più comune di interpolazione di una curva, ma in certi casi è 
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necessario usarne una diversa. In questo capitolo vedremo l'applicazione del m eto 
do dei minimi quadrati ad altre espressioni, altrettanto comuni. 

Poniamo come condizione che le equazioni siano lineari nei coefficienti delle j n 
cognite, come: 

y = A + A + Cz 
x 

y = A + B/x + Cz 

Ay 

In y = ^ + Be x 

dove A, B e C sono lineari. Non considereremo invece equazioni del tipo: 

y = A + Be Cx ( 21 


perchè C non è lineare. 

Lo sviluppo di un programma di interpolazione per una delle equazioni precedenti 
è analogo a quello usato nel Capitolo 5. Consideriamo ad esempio l’equazione di una 
parabola, polinomiale di secondo grado: 

y = A + Bx + Cx 2 


Definiamo i residui r: 
r = A + Bx + Cx 2 - y 


Eleviamo al quadrato I residui e sommiamo i risultati: come nel Capitolo 5 voglia¬ 
mo minimizzare questa quantità, calcolando la derivata rispetto ad ognuna delle va¬ 
riabili (A, B e C, in questo caso), e ponendola uguale a zero. Nel caso della parabo¬ 
la, otterremo tre equazioni, una per ognuna delle tre variabili: 


An + BEx + CE x 2 = Ey 

(3) 

AEx + BEx 2 + CEx 3 = Exy 

(4) 

A Ex 3 + BEx 3 + CEx 4 = Ex^ 

(5) 


PROGRAMMA PASCAL: 

INTERPOLAZIONE DI UNA PARABOLA CON I MINIMI QUADRATI 

Questa soluzione si ottiene risolvendo il sistema di equazioni costituito dalle 3, 4 e 
5., col programma della figura 7.1, che usa la regola di Cramer; si devono quindi 
calcolare i determinanti di quattro matrici 3 per 3, e per far ciò si usa la funzione DE- 
TEr del Capitolo 4 (Figura 4.2). 
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PROGRAM LE ASTI (OUTPUT); 

(* 26 Die 80 *) 

(* Programma pascal che esegue una *) 

(* interpolazione lineare coi minimi quadrati *) 

(* con l’uso di una curva parabolica *) 

(* è necessaria una procedura separata PLOT *) 

CONST 

MAXR = 20; 

AAAXC = 3; 

TYPE 

ARY = ARRAY[1..AAAXR] OF REAL; 

ARYS = ARRAY[1..MAXC] OF REAL; 

ARY2S = ARRAY[1..MAXC, 1..AAAXC] OF REAL; 

VAR 

X, Y, Y _ CALC : ARY; 

COEF : ARYS; 

NROW, NCOL : INTEGER; 

CORREL_COEF: REAL; 

PROCEDURE GET_DATA(VARX, Y : ARY; 

VAR NROW : INTEGER); 

(* riceve i valori di nrow e delle matrici x, y *) 

VAR 

I: INTEGER; 


Figura 7.1 — Interpolazione parabolica con i minimi quadrati. 
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BEGIN 

NROW : = 9; 

FOR I : = 1 TO NROW DO X[l] : = I; 


Y[l] 

= 2.07; Y[2] : = 

= 8.6; 

Y[3] 

= 14.42; Y [4] 

= 15.80; 

Y[5] 

= 18.92; Y[6] 

= 17.96; 

Y [7] 

= 12.98; Y [8] 

= 6.45; 

Y[9] 

= 0.27 



END (* procedure get_data *); 


PROCEDURE WRITE _ DATA; 
(* stampa i risultati *) 

VAR 

I: INTEGER; 


BEGIN 

WRITELN; 

WRITELN(' I X Y Y CALC'); 
FOR I : = 1 TO NROW DO 

WRITELN(I:3, X[l]:8:l, Y[l]:9:2, Y_CALC[I]:9:2); 
WRITELN; WRITELN ('Coefficienti'); 

FOR I : = 1 TO NCOL DO 
WRITELN( COEF[l]:8:4); 

WRITELN; 

WRITELN ('|| coefficiente di correlazione è', 
CORREL_COEF:8:5) 

END (* write_data *); 


Figura 7.1 — Interpolazione parabolica con i minimi quadrati (segue). 
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PROCEDURE SOLVE( A : ARY2S; 

Y : ARYS; 

VAR COEF : ARYS; 

NROW : INTEGER; 

VAR ERROR : BOOLEAN); 

VAR 

B : ARY2S; 

I, J : INTEGER; 

DET : REAL; 

FUNCTION DETER(A: ARY2S): REAL; 

(* calcola il determinante di una matrice 3-per-3 *) 

BEGIN (* function deter *) 

DETER := A[l,l] * (A[2,2] * A[3,3] - A[3,2] * A[2,3]) 

- A[1,2] * (A[2,1] * A[3,3] - A[3,l] * A[2,3]) 
+ A[1,3] * (A[2,1 ] * A[3,2] - A[3,l] * A[2,2]) 
END (* function deter *); 

PROCEDURE SETUP(VAR B 

VAR COEF : ARYS; 

J : INTEGER); 

VAR 

I: INTEGER; 

BEGIN (* setup *) 

FOR I : = 1 TO NROW DO 

BEGIN 

B[I,J] := Y[l]; • 

IF J > 1 THEN B[I,J —1] := A[I,J-1] 

END; 

COEF[J] := DETER(B)/DET 
END (* setup *); 


Figura 7.1 — Interpolazione parabolica con i minimi quadrati (segue). 
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BEGIN (* procedure solve *) 

ERROR : = FALSE; 

FOR I : = 1 TO NROW DO 
FOR J : = 1 TO NROW DO 
B[I,J] : = A[I,J]; 

DET : = DETER(B); 

IF DET = O.OTHEN 
BEGIN 

ERROR : = TRUE; 

WRITELN ('ERRORE: matrice singolare') 

END 

ELSE 

BEGIN 

SETUP( B, COEF, 1 ); 

SETUP( B, COEF, 2); 

SETUP( B, COEF, 3) 

END (* else *) 

END (* procedure solve *); 

PROCEDURE LINFIT(X, Y: ARY; 

VAR Y_CALC : ARY; 

VAR COEF : ARYS; 

NROW : INTEGER; 

VAR NCOL : INTEGER); 

(* i minimi quadrati approssimano a una parabola *) 
(* nrow gruppi di coppie di punti x e y *) 

VAR 

A : ARY2S; 

G : ARYS; 

I : INTEGER; 


Figura 7.1 — Interpolazione parabolica con i minimi quadrati (segue). 
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ERROR: BOOLEAN; 

SUAA_X, SUM_Y, SUM_XY, SUM_X2, 
SUM_Y2, XI, Yl, SXY ,SXX, SYY, 
SUM_X3, SUM_X4, SUM_2Y, DENOAA, 
SRS, X2: REAL; 

BEGIN (* linfit *) 

NCOL := 3 (* termini polinomiali *) 
SUM_X : = 0; 

SUM_Y := 0; 

SUM _ XY : = 0; 

SUAA_X2 : = 0; 

SUM_Y2 := 0; 

SUM_X3 : = 0; 

SUM _ X4 : = 0; 

SUM_2Y := 0; 

FOR I : = 1 TO NROW DO 


BEGIN 

XI := X[l]; 

Yl := Y[l]; 

X2 := XI * XI; 

SUM_X := SUM_X + XI; 

SUM_Y := SUM_Y + Yl; 
SUM_XY := SUM_XY + XI * Yl; 
SUM_X2 := SUM_X2 + X2; 
SUM_Y2 := SUM_Y2 + Yl * Yl; 
SUM_X3 := SUM_X3 + XI * X2; 
SUM_X4 := SUM_X4 + X2 * X2; 
SUM_2Y := SUM_2Y + X2 * Yl 
END; 


Figura 7.1 — Interpolazione parabolica con i minimi quadrati (segue). 
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A[l,l] := NROW; 

A[2,l] := SUM_X; A[l,2] := SUM_X; 

A[3,1] := SUM_X2; A[l,3] : = SUM_X2; 

A[2,2] := SUAA_X2; A[3,2] := SUM_X3; 

A[2,3] : = SUM_X3; A[3,3] := SUM_X4; 

G[l] := SUM_Y; 

G[2] := SUM_XY; 

G[3] := SUM_2Y; 

SOLVE( A, G, COEF, NCOL, ERROR); 

SRS := 0.0; 

FORI := 1 TO NROW DO 

BEGIN 

Y_CALC[l] : = 

COEF[l] + COEF[2] * X[l] + COEF[3] * SQR(X[I]); 
SRS := SRS + SQR(Y[I] - Y_CALC[I]) 

END; 

CORREL_COEF : = 

SQRT(1.0 - SRS/(SUM_Y2 -SQR(SUM_Y)/NROW)) 
END (* linfit *); 

(* 

PROCEDURE plot 

(x, y, y_calc: ary; nrow; integer); 

extern; *) 

(*$F PLOT.PAS *) (* get procedure PLOT *) 

BEGIN (* programma principale *) 

GET_DATA(X, Y, NROW); 

LINFIT(X, Y, Y_CALC, COEF, NROW, NCOL); 
WRITE_DATA; 

PLOT(X, Y, Y_CALC, NROW) 

END. 


Figura 7.1 - Interpolazione parabolica con i minimi quadrati (segue). 
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Nei programmi dei capitoli precedenti i coefficienti erano A, B e C; in questo capi¬ 
rlo useremo il vettore COEF, in modo che A corrisponda al primo elemento del vet¬ 
tore, COEF(1), B a COEF(2) e C a COEF(3). 

Notate che il programma principale chiama la procedura PLOT, che abbiamo usa¬ 
to nei precedenti capitoli; il suo listing non compare però nel programma, e viene ri¬ 
chiamata con una direttiva INCLUDE. Se il vostro Pascal non ha questa possibilità, 
dovete inserire nel programma una copia della PLOT. 

La PLOT richiede che l'array della variabile indipendente sia in ordine crescente o 
decrescente, e i dati forniti dalla GET_DATA sono cosi; se, in un secondo tempo vo¬ 
lete usare dati non ordinati, dovete aggiungere una delle procedure di ordinamento 
del Capitolo 6. 


Esecuzione del programma 

Scrivete il programma ed eseguitelo; i risultati si presenteranno come in Figura 
7.2. Il coefficiente di correlazione è prossimo a 1, il che significa che l’equazione 
della parabola può dare una buona interpolazione. L'equazione risultante è: 

y = - 7.827 + 10.59x - 1,083x 2 


Ora consideriamo equazioni polinomiali di grado superiore a 2 e equazioni non 
polinomiali; vedremo che l’approccio usato per determinare i coefficienti è inade¬ 
guato per equazioni più complesse, e bisogna trovarne un altro. 


INTERPOLAZIONE DI CURVE PER ALTRE EQUAZIONI 

Se abbiamo un’equazione polinomiale di grado superiore a 2, ci saranno altri 
coefficienti, e quindi altre equazioni da risolvere simultaneamente; 

Le equazioni 3, 4 e 5 possono'essere facilmente estese a questo caso. Per esem¬ 
pio, per trovare i coefficienti dell’equazione cubica: 

y = A + Bx + Cx 2 + Dx 3 
i residui sono: 

r = A + B x + Cx 2 + Dx 3 - y 
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I X 

Y Y CALC 


1 1 .0 

2.07 1.68 


2 2.0 

8.60 9.02 


3 3.0 

14.42 14.20 


4 4.0 

15.80 17.21 


5 5.0 

18.92 18.05 


6 6.0 

17.96 16.73 


7 7.0 

12.98 13.24 


8 8.0 

6.45 7.58 


9 9.0 

0.27 -0.24 


Coefficienti 



-7.8267 



10.5901 



-1.0830 



Il coefficiente di correlazione è 0.99155 


1.00 

*♦ 


2.00 



3.00 


*♦ 

4.00 


+ * 

5.00 


* -f 

6.00 


* + 

7.00 



8.00 

♦ * 


9.00 *+ 



A 

A A 

A A A 

-0.2 

3.6 7.4 

11.3 15.1 18.9 


Figura 7.2 — Risultati del programma di interpolazione parabolica. 


Si elevano al quadrato i residui e si sommano i risultati; si esegue la derivata ri¬ 
spetto ad ogni variabile a, B, C e si ottiene un sistema di quattro equazioni: 

An + BEx + CEx 2 + DEx 3 = Ey 
A Ex + BEx 2 + CIx 3 + DEx 4 = Exy 
A Ex 2 + BEx 3 + CEx 4 + DEx 5 = Ex 2 y 
A Ex 3 + BEx 4 + CEx 5 + DEx 6 = Ex 3 y 
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Le espressioni non polinomiali sono trattate analogamente. Per esempio, un'e¬ 
quazione del tipo: 

y = A + Bf(x) + Cg(x) 

dove f(x) e g(x) rappresentano delle funzioni di x, ha residui: 
r = A + Bf(x) + Cg(x) - y 


Questi vengono elevati al quadrato e poi sommati. La derivata rispetto alle tre va¬ 
riabili dà le seguenti tre equazioni: 

An + BEf(x) + CEg(x) =Ey 

AEf(x) + BEf(x 2 ) + CEf (x)g(x) =Ef(x)y 

AEg(x) + BEf (x)g(x) + CEg(x) 2 =Eg(x)y 

Questo metodo è corretto, ma molto laborioso; ogni nuova equazione richiede ul¬ 
teriori modifiche. Per esempio, se l’equazione è: 

y = A + Bx + C/x 2 

saranno necessarie nel programma istruzioni del tipo: 

SUM_X3 : = SUM_X3 + 1/XI; 

SUM_X4 : = SUM_X4 + 1/(XI*XI); 

per calcolare le somme. 


Una soluzione diretta 

Per determinare i coefficienti dell’equazione è meglio organizzare i dati in una 
matrice e un vettore, che danno poi luogo ad un sistema di equazioni che si risolvo¬ 
no nel solito modo. Supponiamo di volere un’interpolazione lineare con l'equazione 

y = A + Bx 

per cinque insiemi di dati x-y. Il vettore dei dati in questo caso contiene i valori di y, 
e la matrice è del tipo: 

'1 x,' 

1 x 2 

1 x 3 

1 x„ 

1 x 5 
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Ogni riga della matrice dei dati corrisponde a un punto, ogni colonna a un termine 
dell’equazione; quindi la matrice ha cinque righe e due colonne. La prima colonna 
contiene solo 1, poiché questo è la funzione di x (x°) nel primo termine dell'equazio¬ 
ne; la seconda contiene i valori di x, poiché questa è la funzione di x nel secondo ter¬ 
mine dell’equazione. 

La matrice dei dati per un’interpolazione parabolica avrà tre colonne; le prime due 
saranno le stesse della retta, la terza contiene i quadrati dei valori di x. Invece, p er 
un'equazione del tipo: 

I n p = A + ~y~ + C In t 

la prima colonna contiene 1, la seconda il reciproco dei dati, e la terza il logaritmo 
dei dati. Il vettore dei dati contiene il logaritmo di p. 

La matrice rettangolare è trasformata in quadrata con una semplice operazione: 
la trasposta della matrice viene moltiplicata per la matrice stessa per produrre la 
matrice dei coefficienti. Nel caso di interpolazione con la retta di cinque insiemi di 
dati x-y, l’operazione è: 



1 x 4 

1 x 5 


Il risultato è una matrice 2 per 2 che contiene le necessarie sommatorie di x: 

fn Zx 

[Zx Zx 2 

Il prodotto del vettore dei dati (considerato come vettore riga) e la matrice dei da¬ 
ti: 

[Vi Kz y 3 y* y 5 ] 


dà come risultato il vettore dei termini noti di lunghezza 2: 

[Zy Zxy] 

Vediamo ora un programma in Pascal che realizza questo procedimento, e che 
contiene una procedura generale per calcolare l'errore standard. Come abbiamo 
anticipato nel Capitolo 4, il metodo di Gauss-Jordan di risoluzione di sistemi di equa¬ 
zioni è un ottimo strumento da usare in questo caso, perchè fornisce l'inversa della 
matrice dei coefficienti. 
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PROGRAMMA PASCAL: L’APPROCCIO PER MATRICI 
aL L’INTERPOLAZIONE DI CURVE 


Il programma della Figura 7.3 usa questo approccio per matrici. La matrice e il 
vettore dei dati sono creati all'inizio della procedura LINFIT; poi, la procedura 
SQUARE converte la matrice X e il vettore Y nella matrice quadrata dei coefficienti 
e nel vettore dei termini noti g. Le operazioni sono le seguenti: 

X T X = A 
e 

V* = g 

Il prodotto del vettore dei dati per la matrice dà per risultato il vettore g. Il vettore 
contenente la soluzione: 

A-’g = b 

si può ottenere usando una qualsiasi delle routine del Capitolo 4 per la risoluzione di 
sistemi di equazioni. 

Il programma di interpolazione lineare del Capitolo 5 presentava gli errori stan¬ 
dard insieme con i valori corrispondenti della funzione di approssimazione. Gli errori 
standard si ottenevano dall'errore standard della stima e le sommatorie di x e di x 2 . 
Qui useremo una tecnica più generale. 

Gli errori standard si ottengono facilmente dall’Inversa della matrice dei coeffi¬ 
cienti: il valore corrispondente al termine j-esimo della funzione di approssimazione 
è il prodotto dell'errore standard della stima (SEE) per la radice quadrata del termi¬ 
ne j-esimo della diagonale principale dell’inversa: 



L’espressione Pascal è: 

’SIG[I] : = SEE*SQRT(A[l,I ]) 

Fra i diversi metodi che abbiamo visto finora per la soluzione di sistemi di equa¬ 
zioni lineari, solo quello di Gauss-Jordan genera l’inversa della matrice dei coeffi¬ 
cienti. Poiché questa ci serve per determinare gli errori degli elementi del vettore 
soluzione, nel resto del capitolo useremo questo metodo per i programmi di interpo¬ 
lazione. 
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Gli errori standard sui coefficienti si possono usare per determinare l’intervallo di 
affidabilità per i coefficienti stessi. Inoltre, gli errori standard ci possono segnalare 
la possibilità di equazioni mal condizionate. Abbiamo visto le matrici mal condizj 0 . 
nate nel Capitolo 4; è più probabile incontrarle nella soluzione di sistemi di equazioni- 
che nell'interpolazione di curve, ma affronteremo ugualmente il problema. 

Gli errori standard si ricavano dalla radice quadrata degli elementi della diagonale 
principale della matrice inversa. Notevoli differenze in questi elementi segnalano la 
possibilità di equazioni mal condizionate; perciò, se i quadrati degli errori differisco¬ 
no per diversi ordini di grandezza può darsi che le equazioni siano mal condizionate. 
L’ultimo programma nel capitolo ne dà un esempio. 

Il programma della Figura 7.3 è simile a quello della Figura 7.1, ma la soluzione 
dell'equazione parabolica si trova con il metodo più generale delle matrici; il pro¬ 
gramma usa tre routine già viste. La procedura di moltiplicazione tra matrici del Ca¬ 
pitolo 3 compare nel listing, mentre vengono richiamate come file separati la proce¬ 
dura GAUSSJ di Gauss-Jordan del Capitolo 4 e la PLOT. 


PROGRAM LEAST2(OUTPUT); 

( * 26 Die 80 * ) 

(* Programma pascal che esegue una *) 

(« interpolazione lineare coi minimi quadrati *) 

(* con la routine Gauss-Jordan *) 

(«Sono necessarie le procedure: 

GAUSSJ, PLOT *) 

CONST 

AAAXR = 20; (* data punti *) 

AAAXC = 4; (* termini polinomiali *) 

TYPE 

ARY = ARRAY[1..MAXR] OF REAL; 

ARYS = ARRAY[1.. AAAXC] OF REAI; 

ARY2 = ARRAY[1. AAAXR, 1..AAAXC] OF REAL; 
ARY2S = ARRAY[1.. AAAXC, !.. AAAXC] OF REAL; 


Figura 7.3 - Interpolazione parabolica con i minimi quadrati con il metodo di eli¬ 
minazione di Gauss-Jordan. 
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VAR 

X, Y, Y _ CALC, 

RESID : ARY; 

COEF, SIG : ARYS; 
NROW, NCOL : INTEGER; 
CORREI _ COEF : REAI; 


PROCEDURE GET_DATA 

(VARX : ARY; (* variabile indipendente #) 

VAR Y : ARY; (* variabile dipendente #) 

VAR NROW: INTEGER); (# lunghezza dei vettori *) 

VAR 

I: INTEGER; 

BEGIN 

NROW := 9; 

FOR I : = 1 TO NROW DO 
X[l]:= I; 


Y[1] 

= 2.07; Y[2] : = 

= 8.6; 

Y[3] 

= 14.42; Y[4] 

= 15.80; 

Y[5] 

= 18.92; Y[6] 

= 17.96; 

Y[7] 

= 12.98; Y[8] 

= 6.45; 

Y[9] 

= 0.27 


END (* 

procedure get. 

_data *); 


PROCEDURE WRITE_DATA; 

(* stampa i risultati *) 


VAR 

I: INTEGER; 


Figura 7.3 — Interpolazione parabolica con i minimi quadrati con il metodo di eli¬ 
minazione di Gauss-Jordan (segue). 
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BEGIN 

WRITELN; 

WRITELN; 

WRITELNf I X Y Y CALC RESID'); 

FOR I := 1 TO NROW DO 

WRITELN(I: 3, X[l]: 8: 1, Y[l]: 9: 2, 

Y_CALC[I]:9: 2, RESID[I]: 9: 2); 

WRITELN; 

WRITELN ('coefficienti errori'); 

WRITELN(COEF[l], ' SIG[1], ' Termine costante ); 

FOR I : = 2 TO NCOL DO 

WRITELN(COEF[l], ' SIG[I]) (* altri termini *); 

WRITELN; 

WRITELN 

('Il coefficiente di correlazione è', CORREI_COEF: 8: 5) 

END (* write_data *); 

PROCEDURE SQUARE(X : ARY2; 

Y : ARY; 

VAR A : ARY2S; 

VAR G : ARYS; 

NROW, NCOL : INTEGER); 

(# routine di moltiplicazione di matrici *) 

( * A = traspone X volte X * ) 

(* G = Y volte X *) 

VAR 

I, K, L: INTEGER; 

BEGIN (* square *) 

FOR K : = 1 TO NCOL DO 

BEGIN 

FOR L : = 1 TO K DO 


Figura 7.3 — Interpolazione parabolica con i minimi quadrati con il metodo di eli¬ 
minazione di Gauss-Jordan (segue). 
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BEGIN 

A[K,L] := 0.0; 

FOR I : = 1 TO NROW DO 

BEGIN 

A[K,L] := A[K,L] + X[I,LJ * X[I,K]; 


IFKOLTHEN A[L,K] : = 

A[K,l] 

END 


END (a ciclo L a); 

G[K] := 0.0; 

FOR 1 : = 1 TO NROW DO 

G[K] : = G[K] + Y[l] * X[I,K] 

END (a ciclo k a) 

END (* square *); 


(* PROCEDURE gaussj 
(VAR b : ary2s; 

y : arys; 

VAR coef : arys; 

ncol : integer; 

VAR error : boolean); 
extern; *) 

(*$F GAUSSJ.PAS *) 



PROCEDURE LINFIT(X, (a variabile indipendente a) 

Y : ARY; (a variabile dipendente a) 

VAR Y_CALC: ARY; (* var. dip. calcolata a) 

VAR RESID : ARY; (a matrice dei resti *) 

VAR COEF : ARYS; (a coefficienti a) 

VAR SIG : ARYS; (a errori nei coefficienti a) 

NROW : INTEGER; (a lunghezza dei vettori a) 
VAR NCOL : INTEGER); (a numero di termini *) 


Figura 7.3 — Interpolazione parabolica con i minimi quadrati con il metodo di eli¬ 
minazione di Gauss-Jordan (segue). 
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(* interpolazione lineare coi minimi quadrati di *) 

(* nrow coppie di punti x e y *) 

(* Sono necessarie le procedure separate: 

SQUARE — formazione della matrice dei coefficienti 
GAUSSJ — eliminazione di Gauss-Jordan *) 

VAR 

XMATR : ARY2; (* matrice dati *) 

A : ARY2S; (* matrice coefficienti *) 

G : ARYS; (* matrice costanti *) 

ERROR : BOOLEAN; 

I, J, NM: INTEGER; 

XI, Yl, YC, SRS, SEE, 

SUM_Y, SUAA_Y2: REAL; 

BEGIN (* procedure linfit *) 

NCOL := 3; (* numero di termini *) 

FOR I : = 1 TO NROW DO 

BEGIN (* caricamento matrice X #) 

XI : = X[l]; 

XMATR[I, 1] := 1.0 (* prima colonna *) 
XMATR[I, 2] := XI (* seconda colonna *) 
XMATR[I, 3] := XI * XI (* terza colonna *) 

END; 

SQUARE(XAAATR, Y, A, G, NROW, NCOL); 

GAUSSJ (A, G, COEF, NCOL, ERROR); 

SUM_Y := 0.0; 

SUM_Y2 : = 0.0; 

SRS : = 0.0; 

FOR I : = 1 TO NROW DO 


Figura 7.3 — Interpolazione parabolica con i minimi quadrati con il metodo di eli¬ 
minazione di Gauss-Jordan (segue). 
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BEGIN 

Yl := Y[l]; 

YC : = 0.0; 

FOR J : = 1 TO NCOL DO 

YC := YC + COEF[J] * XMATRfl, J]; 

Y_CALC[I] := YC; 

RESID[I] := YC - Yl; 

SRS := SRS + SQR(RESID[I]); 

SUM_Y := SUM_Y 4- Yl; 

SUAA_Y2 := SUM_Y2 + Yl * Yl 
END; 

CORREL_COEF : = 

SQRT(1.0 - SRS/(SUM_Y2 - SQR(SUAA_Y)/NROW)); 
IF NROW = NCOL THEN NM := 1 
ELSE NAA : = NROW - NCOL; 

SEE := SQRT(SRS/NAA); 

FOR I : = 1 TO NCOL DO (* errori nella soluzione *) 

SIG[I] := SEE * SQRT(A[I, I]) 

END (* linfit *); 

(* PROCEDURE plot(x, y, z: ary; nrow: integer); 

extern; *) 

(*$F PLOT.PAS *) 

BEGIN (# programma principale *) 

GET_DATA(X, Y, NROW); 

LINFIT(X, Y, Y_CALC, RESID, COEF, SIG, NROW, NCOL); 
WRITE_DATA; 

PLOT(X, Y, Y _CALC, NROW) 

END. 


Figura 7.3 — Interpolazione parabolica con i minimi quadrati con il metodo di eli¬ 
minazione di Gauss-Jordan (segue). 
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Esecuzione del programma 

Modificate il primo programma del capitolo, oppure createne un altro in base al li. 
sting di Figura 7.3; assicuratevi di avere disponibili le procedure GAUSSJ e PLOT su 
file esterni; in caso contrario, inserite queste procedure direttamente nel program, 
ma principale. Eseguite il programma e confrontate i risultati con la Figura 7.4; d 0 . 
vrebbero essere uguali a quelli del programma precedente, con l’unica differenza 
che nella nuova versione sono dati i residui e gli errori. 


I 

X 

Y Y CALC 

RESID 

1 

1.0 

2.07 1.68 

-0.39 

2 

2.0 

8.60 9.02 

0.42 

3 

3.0 

14.42 14.20 

-0.22 

4 

4.0 

15.80 17.21 

1.41 

5 

5.0 

18.92 18.05 

-0.87 

6 

6.0 

17.96 16.73 

-1 .23 

7 

7.0 

12.98 13.24 

0.26 

8 

8.0 

6.45 7.58 

1.13 

9 

9.0 

0.27 -0.24 

-0.51 

coefficienti 

errori 


-7. 

82657e0 

1.29802e0 Termine costante 

1. 

05900e1 

5.96000e-1 


-1. 

08295e0 

5.81267e-2 



Il coefficiente di correlazione è 0.99155 


Figura 7.4 — Risultati della versione alternativa dell'interpolazione parabolica con i 
minimi quadrati. 


Nel prossimo paragrafo, l'approccio per matrici ci consentirà di tentare l’interpo- 
lazione di un qualsiasi insieme di dati con equazioni polinomiali di diversi gradi. Per 
provare la potenza di questo strumento, eseguiremo il programma più volte sullo 
stesso insieme di dati; confrontando le curve ottenute sui grafici e i coefficienti di 
correlazione, determineremo il grado più opportuno per interpolare i nostri dati. 


PROGRAMMA PASCAL: DETERMINAZIONE 
DEL GRADO DEL POLINOMIO 


Un vantaggio della nuova versione del programma di interpolazione è la facilità 
con cui si possono cambiare il numero di righe, corrispondente ai numero di punti, e 
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Figura 7.5 — Introduzione dell’ordine del polinomio dalla console. 
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PROCEDURE GET _ DATA 

(VARX : ARY; (* variabile indipendente *) 

VAR Y : ARY; (* variabile dipendente *) 

VARNROW: INTEGER); (* lunghezza dei vettori *) 

VAR 

I: INTEGER; 

BEGIN 

NROW : = 9; 

FORI := 1 TO NROW DO 
X[l]:= I; 


Y[1 ] 

= 2.07; Y[2] : = 

= 8.6; 

Y[3] 

= 14.42; Y[4] : 

= 15.80; 

Y[5] 

= 18.92; Y[6] : 

= 17.96; 

V [7] 

= 12.98; Y[8] : 

= 6.45; 

Y[9] 

= 0.27 



END (* procedure get_data *); 


PROCEDURE WRITE_DATA; 

(* stampa i risultati *) 


I: INTEGER; 

BEGIN 

WRITELN; 

WRITELN; 

WRITELN(' I X Y Y CALC RESID'); 


Figura 7.5 — Introduzione dell’ordine del polinomio dalla console (segue). 
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FOR I := 1 TO NROWDO 

WRITELN(I: 3, X[l]: 8: 1, Y[i]: 9: 2, 

Y_CALC[I]: 9: 2, RESID[I]: 9: 2); 

WRITELN; 

WRITELN ('coefficienti errori'); 

WRITELN(COEF[l], ' SIG[1], ' Termine costante'); 

FOR I : = 2TO NCOL DO 
WRITELN 

(COEF[l], ' SIG[I]) (* altri termini *); 

WRITELN; 

WRITELN 

('Il coefficiente di correlazione è', CORREI_COEF; 8: 5) 

END (* write_data *); 

(* PROCEDURE square(x : ary2; 

y : ary; 

VAR a ; ary2s; 

VAR g : arys; 
nrow,ncol : integer); 

extern; *) 

(*$F SQUARE.PAS *) 

PROCEDURE gaussj 
(VAR b : ary2s; 

y : arys; 

VAR coef : arys; 

ncol : integer; 

VAR error : boolean); - 
extern; *) 

(*$F GAUSSJ.PAS *) 


Figura 7.5 — Introduzione dell'ordine del polinomio dalla console (segue). 
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PROCEDURE LINFIT(X, (* variabile indipendente ») 

Y: ARY; (* variabile dipendente *) 

VAR Y_CALC: ARY; (# var. dipendente calcolata *) 

VAR RESID : ARY; (* matrice dei resti *) 

VAR COEF : ARYS; (* coefficienti *) 

VAR SIG : ARYS; (* errori nei coefficienti *) 

NROW : INTEGER; (* lunghezza delle matrici *) 

VAR NCOL : INTEGER); (* numero dei termini *) 

(* interpolazione lineare coi minimi quadrati di *) 

(* nrow coppie di punti x e y *) 

(* Sono necessarie le procedure separate: 

SQUARE — formazione matrice dei coefficienti 
GAUSSJ — eliminazione di Gauss-Jordan *) 

VAR 

XAAATR : ARY2; (* matrice dei dati #) 

A : ARY2S; (* matrice dei coefficienti *) 

G : ARYS; (* vettore costanti *) 

ERROR : BOOLEAN; 

I, J, NM: INTEGER; 

XI, Yl, YC, SRS, SEE, 

SUM_Y, SUM_Y2: REAL; 

BEGIN (* procedure linfit *) 

FORI := 1 TO NROW DO 

BEGIN (# caricamento matrice X *) 

XI : = X[l]; 

XAAATRfl, 1] := 1.0; (* prima colonna *) 

FOR J : = 2 TO NCOL DO ( * altre colonne *) 

XMATRfl, J] := XMATR[I,J-1] * XI 

END; 

SQUARE(XMATR, Y, A, G, NROW, NCOL); 

GAUSSJ (A, G, COEF, NCOL, ERROR); 

SUM_Y := 0.0; 

SUM_Y2 := 0.0; 

SRS := 0.0; 

Figura 7.5 — Introduzione dell’ordine del polinomio dalla console (segue). 
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FOR I : = 1 TO NROW DO 
BEGIN 

Yl := Y[l]; 

YC := 0.0; 

FOR J:= 1 TO NCOL DO 

YC := YC + COEF[J] * XMATR[I, J]; 

Y_CALC[I] := YC; 

RESID[I] ;= YC - Yl; 

SRS := SRS + SQR(RESID[I]); 

SUM_Y := SUM_Y + Yl; 

SUM_Y2 : = SUM_Y2 + Yl * Yl 
END; 

CORREL_COEF : = 

SQRT(1.0 - SRS/(SUM_Y2 - SQR(SUM_Y)/NROW)); 

IF NROW = NCOL THEN NM : = 1 
ELSE NM := NROW - NCOL; 

SEE : = SQRT(SRS/NM); 

FORI : = 1 TO NCOL DO (* errori nella soluzione *) 

SIG[I] := SEE * SQRT(Atl, I]) 

END (* linfit *); 

(* PROCEDURE plot(x, y, z: ary; nrow: integer); 
extern; *) 

(*$F PLOT.PAS *) 

BEGIN (* programma principale *) 

DONE : = FALSE; 

WRITELN; 

GET_DATA (X, Y, NROW); 

REPEAT 

REPEAT 

WRITE( Ordine dell'interpolazione polinomiale?'); 

READLN( NCOL) 

UNTIL NCOL < 5; 

IF NCOL < 1 THEN DONE := TRUE (* finisce se ncol < 1 *) 

ELSE 


Figura 7.5 — Introduzione dell’ordine del polinomio dalla console (segue). 
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BEGIN 

NCOL := NCOL + 1 (* l'ordine è diminuito di uno *) 
LINFIT(X, Y, Y_CALC, RESID, COEF, SIG, NROW, NCOL); 
WRITE_DATA; 

PLOT (X, Y, Y_CALC, NROW) 

END (* ELSE *) 

UNTIL DONE 
END. 


Figura 7.5 — Introduzione dell’ordine del polinomio dalla console (segue). 

Confronto tra diverse esecuzioni del programma 

Eseguite il programma con il valore 2 per il grado dell'equazione; i risultati saran¬ 
no ancora gli stessi delle due versioni precedenti, ma questa volta il programma ri¬ 
torna all’inizio e vi chiede nuovamente il grado dell’equazione. Questa volta rispon¬ 
dete 1; i risultati (mostrati nella Figura 7.6) sono sulla retta che attraversa i punti 
dell'insieme di dati. 

I due coefficienti rappresentano l'equazione; 
y = 12.028 - 0.240x 


Notate che circa metà dei punti sono da una parte della retta, e metà dall'altra; la 
retta passa per i punti come meglio può, e d'altra parte il coefficiente di correlazione 
è solo 0.096, valore relativamente piccolo che sta a significare che la retta non è 
una buona interpolazione. 

La terza volta date il valore 3; questo produce un’interpolazione corrispondente 
all’equazione cubica: 

y = - 7.2 + 10.Ox - 0.946x 2 - 0.00915x 3 

Dal valore del coefficiente di correlazione si capisce che la curva risultante non 
da un'interpolazione migliore di quella parabolica; si dovrebbe sempre usare l’equa¬ 
zione di grado più basso che interpola i dati in modo accettabile, e quindi in questo 
caso la scelta migliore è la parabola. 

Con questa versione del programma possiamo scegliere al massimo il grado 3, in 
quanto abbiamo fissato a 4 il numero massimo di colonne della matrice, nella co¬ 
stante MAXC; se è necessario un grado maggiore basta cambiare MAXC. 
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I 

X 

Y 

Y CALC 

RESID 

1 

1.0 

2.07 

11.79 

9.72 

2 

2.0 

8.60 

11.55 

2.95 

3 

3.0 

14.42 

11.31 

-3.11 

4 

4.0 

15.80 

11.07 

-4.73 

5 

5.0 

18.92 

10.83 

-8.09 

6 

6.0 

17.96 

10.59 

-7.37 

7 

7.0 

12.98 

10.35 

-2.63 

8 

8.0 

6.45 

10.11 

3.66 

9 

9.0 

0.27 

9.87 

9.60 


coefficienti 
1.20275e1 
-2.39500e-1 


errori 
5.26361 
9.35368e-1 


Termine costante 


coefficiente di correlazione è 0.09633 

1.00 + 

2.00 + 
3.00 
A. 00 
5.00 
6.00 
7.00 

8.00 + 

9.00 + 

A A A 

0.3 4.0 


* + 


7.7 11.5 15.2 


18.9 


Figura 7.6 — Interpolazione rettilinea per dati parabolici. 


Si esce dal programma dando un valore nullo o negativo per il grado. Si potrebbe 
modificare il programma in modo che chieda il numero dei termini dell'equazione in¬ 
vece che il grado; in questo caso deve essere eliminata dal programma principale 
l'istruzione: 


NCOL : = NICOL + 1; («l'ordine è inferiore di 1*) 


Nei prossimi tre paragrafi studieremo le applicazioni sperimentali del programma 
di interpolazione al calcolo della capacità termica dell'ossigeno, della pressione del 
vapore di piombo liquido e delle proprietà del vapore surriscaldato. 
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PROGRAMMA PASCAL: L’EQUAZIONE 
DELLA CAPACITÀ TERMICA 


La capacità termica è una misura di quanto cresce la temperatura di un corpo 
quando gli viene fornita una certa quantità di calore; i dati determinati sperimental¬ 
mente sono in genere interpolati dall’equazione: 

C„ = A + BT + — 

P J2 

dove C p è la capacità termica in unità di energia per grado, e T è la temperatura 
assoluta; i coefficienti, come al solito, sono A, B e C. 

Fate una copia del programma di interpolazione della Figura 7.3 (non della Fi¬ 
gura 7.5, che serve in particolare per determinare il grado); modificate la procedura 
GET_DATA e la LINFIT secondo la versione della Figura 7.7. Come prima, la proce¬ 
dura LINFIT riempie la prima colonna della matrice dei dati con 1, e la seconda con 
la temperatura (la variabile indipendente); la terza colonna ora contiene l’inverso 
del quadrato della temperatura. 

I dati rappresentano la capacità termica dell'ossigeno in un campo di variazione 
della temperatura da 300 a 1200 gradi kelvin; notate che nella procedura GET_DA- 
TA X e Y sono diventati T e CP, nomi locali alla procedura stessa, che possono quin¬ 
di essere cambiati quando si vuole. 


PROCEDURE GET_DATA 


(VAR T 

ARY; (* variabile indipendente *) 

VAR CP 

ARY; (* variabile dipendente *) 

VAR NROW 

INTEGER); (# lunghezza dei vettori #) 

VAR 


1: INTEGER; 


BEGIN 


NROW := 10; 


FOR 1 : = 1 TO NROW DO 

T[l] := (1 + 2) * 100; 

CP[1] := 7.02; CP[2] : 

= 7.20; 

CP[3] := 7.43; CP[4] : 

= 7.67; 


Figura 7.7 — Procedure GET_DATA e LINFIT per l’equazione della capacità ter¬ 
mica 
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CP[5] := 7.88; CP[6] := 8.06; 
CP[7] := 8.21; CP[8] := 8.34; 
CP[9] := 8.44; CP[10] := 8.53 


END (* procedure get_data *); 

PROCEDURE LINFIT(X, (# variabile indipendente *) 

Y : ARY; (* variabile dipendente *) 

VAR Y_CALC: ARY; (* var. dipen. calcolata *) 
VARRESID : ARY; (* matrice dei resti *) 

VAR COEF : ARYS; (* coefficienti *) 

VAR SIG ; ARYS; (* errori nei coefficienti *) 
NROW : INTEGER; (* lunghezza dei vettori *) 
VAR NCOL : INTEGER); (# numero dei termini *) 
(* interpolazione coi minimi quadrati di *) 

(* nrow coppie di punti x e y *) 

(* Sono necessarie le procedure: 

SQUARE - formazione della matrice dei coeffic. 
GAUSSJ — eliminazione di Gauss-Jordan *) 

VAR 

XAAATR : ARY2; (# matrice dei dati *) 

A : ARY2S; (* matrice dei coefficienti *) 

G : ARYS; (* vettore delle costanti *) 

ERROR : BOOLEAN; 

I, J, NM: INTEGER; 

XI, Yl, YC, SRS, SEE, 

SUM_Y, SUM_Y2: REAL; 

BEGIN (* procedure linfit *) 

NCOL := 3 (* numero dei termini *) 

FORI := 1 TO NROW DO 


Figura 7.7 — Procedure GET _DATA e LINFIT per l'equazione della capacità ter¬ 
mica (segue). 
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BEGIN (* caricamento della matrice X *) 

XI : = X[l]; 

XAAATR[I, 1]:= 1.0 (* prima colonna *) 
XMATR[I ( 2] := XI (* seconda colonna *) 
XMATR[I, 3] := 1.0/SQR(XI) (* terza colonna *) 

END; 


SQUARE(XAAATR, Y, A, G, NROW, NCOL); 

GAUSSJ(A, G, COEF, NCOL, ERROR); 

SUM_Y := 0.0; 

SUM_Y2 : = 0.0; 

SRS : = 0.0; 

FORI := 1 TO NROW DO 
BEGIN 

Yl:= Y[l]; 

YC : = 0.0; 

FOR J : = 1 TO NCOL DO 

YC := YC + COEF[J] * XMATR[I, J]; 

Y_CALC[I] := YC; 

RESID[I] := YC - Yl; 

SRS:= SRS + SQR(RESID[I]); 

SUM_Y := SUM_Y + Yl; 

SUM_Y2 := SUM_Y2 + Yl * Yl 
END; 

CORREL_COEF : = 

SQRT(1.0 - SRS/(SUM_Y2 - SQR(SUM_Y)/NROW)); 

IF NROW = NCOL THEN NM : = 1 
ELSE NM := NROW - NCOL; 

SEE ;= SQRT(SRS/NM); 

FOR I := ITO NCOL DO (* errori nella soluzione *) 

SIG[I] : = SEE * SQRT(A[I, I]) 

END (* linfit *); 

Figura 7.7 — Procedure GET_ DATA e LINFIT per l’equazione della capacità ter¬ 
mica (segue). 
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Compilai il programma ed eseguitelo; i risultati si presenteranno come in Figura 
7 g e l’equazione risultante è: 

C 0 = 6.9 + 0.00143T - 32610 

p ji 

PROGRAMMA PASCAL: L’EQUAZIONE 
pELLA PRESSIONE DI UN VAPORE 


Quando un gas o un vapore sono in equilibrio con il liquido e il solido da cui sono 
prodotti, si dicono saturi; per sostanze pure, la pressione di saturazione è funzione 


I X 

Y Y 

CALC 

RESID 


1 300.0 

7.02 

6.97 

-0.05 


2 400.0 

7.20 

7.27 

0.07 


3 500.0 

7.43 

7.49 

0.06 


4 600.0 

7.67 

7.67 

0.00 


5 700.0 

7.88 

7.84 

-0.04 


6 800.0 

8.06 

8.00 

-0.06 


7 900.0 

8.21 

8.16 

-0.05 


8 1000.0 

8.34 

8.31 

-0.03 


9 1100.0 

8.44 

8.46 

0.02 


10 1200.0 

8.53 

8.60 

0.07 


coefficienti 

errori 




6.90485e0 

1.29216e-1 

Termini 

costanti 


1.43448e-3 

1.26803e-4 




-3.26106e4 

1.16750e4 




Il coefficiente 

di correlazione è 

0.99482 



300.00 *+ 





400.00 

+ * 




500.00 

+ * 




600.00 


* 



700.00 



*♦ 


800.00 



★ ♦ 


900.00 





1000.00 





1100.00 




■f A 

1200.00 




♦ * 

A 

A 

A 

A 

A A 

7.0 

7.3 

7.6 

8.0 

8.3 8.6 


Figura 7.8 — Risultati relativi alla capacità termica dell'ossigeno. 
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della temperatura, e l'equazione che si usa in genere per rappresentare questa rei 
zione è: 

log P = A + y + C log T 

dove P è la pressione e T è la temperatura assoluta, A, B e C sono i coefficienti e log 
può essere sia il logaritmo naturale che quello comune. 

Fate una copia del programma della Figura 7.7, modificate le procedure 
GET_DATA e LINFIT secondo la versione della Figura 7.9; la procedura LINFit 
mette come sempre 1 nella prima colonna della matrice, l’inverso della temperatura 
(variabile indipendente) nella seconda e il logaritmo della temperatura nella terza 


PROCEDURE GET_DATA 

(VAR T : ARY; (* variabile indipendente *) 

VAR P : ARY; (* variabile dipendente *) 

VAR NROW : INTEGER); (* lunghezza dei vettori #) 

VAR 

I: INTEGER; 

BEGIN (* get_data *) 

NROW := 10; 

FORI := 1 TO NROW DO 
T[l] := (I + 6.0) * 100.0; 

P[l] := 1.0E-9; P[2] := 5.598E-8; 

P[3] := 1.234E-6; P[4] := 1.507E-5; 

P[5] := 1.138E-4; P[6] := 6.067E-4; 

P[7] ;= 2.512E —3; P[8] := 8.337E-3; 

P[9] := 2.371 E — 2; P[10] := 5.875E-2; 

FORI := 1 TO NROW DO 

P[l] := LN(P[I]) (* pone log di p *) 

END (* procedure get_data *); 


Figura 7.9 — Procedure GET_DATA e LINFIT per l'equazione della pressione di un 
vapore. 
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PROCEDURE LINFIT(X, (* variabile indipendente *) 

Y : ARY; (* variabile dipendente #) 

VAR Y_CALC: ARY; (* var. dipendente calcolata *) 
VARRESID : ARY; (* matrice dei resti *) 

VAR COEF : ARYS; (# coefficienti *) 

VAR SIG : ARYS; (* errori nei coefficienti *) 

NROW : INTEGER; (* lunghezza delle matrici *) 
VAR NCOL : INTEGER); (* numeri di termini *) 

(* interpolazione coi minimi quadrati di *) 

(* nrow coppie di punti x e y *) 

(* Sono richieste le procedure separate: 

SQUARE — formazione della matrice dei coefficienti 
GAUSSJ — eliminazione di Gauss-Jordan *) 


VAR 

XAAATR : ARY2; (* matrice dei dati *) 

A : ARY2S; (* matrice dei coefficienti *) 
G : ARYS; (* vettore delle costanti *) 
ERROR : BOOLEAN; 

I, J, NAA : INTEGER; 

XI, Yl, YC, SRS, SEE, 

SUM_Y, SUM_Y2: REAL; 

BEGIN (* procedure linfit *) 

NCOL : = 3 (* numero di termini *) 

FORI := 1 TO NROW DO 

BEGIN (* carica la’ matrice X *) 

XI := X[l]; 

XMATR[I, 1] := 1.0 (* prima colonna *) 


Figura 7.9 — Procedure GET_DATA e LINFIT per l'equazione della pressione di un 
vapore (segue). 


213 








XMATR[I, 2] := 1.0/XI (* seconda colonna *) 
XMATR[I, 3] := LN(XI) (* terza colonna *) 

END; 

SQUARE(XAAATR, Y, A, G, NROW, NCOL); 

GAUSSJ(A, G, COEF, NCOL, ERROR); 

SUM_Y := 0.0; 

SUM_Y2 := 0.0; 

SRS := 0.0; 

FORI := 1 TO NROW DO 
BEGIN 

VI := Y[l]; 

YC := 0.0; 

FOR J:= 1 TO NCOL DO 

YC := YC + COEF[J] * XAAATR[I, J]; 

Y_CALC[I] := YC; 

RESID[I] := YC - Yl; 

SRS := SRS + SQR(RESID[I]); 

SUM_Y := SUM_Y + Yl; 

SUM_Y2 := SUM_Y2 + Yl * Yl 
END; 

CORREL_COEF : = 

SQRT(1.0 - SRS/(SUM_Y2 - SQR(SUM_Y)/NROW)); 
IF NROW = NCOLTHEN NM := 1 
ELSE NM := NROW - NCOL; 

SEE := SQRT(SRS/NM); 

FOR I : = 1 TO NCOL DO (* errori nella soluzione *) 

SIG[I] := SEE * SQRT(A[I, I]) 

END (* linfit *); 


Figura 7.9 — Procedure GET_DATA e LINFIT per l’equazione della pressione di un 
vapore (segue). 
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^seguite il programma; i risultati si presenteranno come in Figura 7.10. 


i x 

1 700.0 

2 800.0 

3 900.0 

4 1000.0 

5 1100.0 

6 1200.0 

7 1300.0 

8 UOO.O 

9 1500.0 
10 1600.0 

coefficienti 
1 .81432e1 
-2.31700e4 
-8.80333e-1 


Y 

-20.72 
-16.70 
-13.61 
- 11.10 
-9.08 
-7.41 
-5.99 
-4.79 
-3.74 
-2.83 

errori 
5.96613e-1 
7.77388e1 
7.4801Oe-2 


RESID 

- 0.00 

- 0.01 

0.02 

- 0.01 

- 0.00 

0.00 

- 0.01 

0.00 

0.00 

0.00 


Termine costante 


Y CALC 
-20.72 
-16.70 
-13.59 
- 11.11 
-9.09 
-7.41 
-5.99 
-4.78 
-3.74 
-2.83 


Il coefficiente di correlazione è 1.00000 


Figura 7.10 — Risultati relativi alla pressione del vapore del piombo. 

I dati rappresentano la pressione del vapore del piombo liquido, al variare della 
temperatura da 700 a 1600 °K; l'equazione corrispondente è: 

In P = 18.17 -23174 _ 0.8803 In T 

T 

dove la pressione è misurata in atmosfere e In è il logaritmo naturale; il coefficiente 
di correlazione 1.00000 significa che l'interpolazione è molto buona. 

Notate che le pressioni originali nella procedura GET_DATA sono in atmosfere; 
nella procedura stessa sono poi convertite nei loro logaritmi. Lasciamo come eser¬ 
cizio al lettore di conservare i valori originali, usando, ad esempio, un'altra matrice 
di nome PRESS; la procedura WRITE_DATA può allora essere modificata in modo 
che stampi sia i valori delle pressioni che i loro logaritmi. 

Néll’ultimo esempio tratteremo un’equazione che non rispetta le condizioni stabi¬ 
lite all’inizio del capitolo; uno dei coefficienti delle incognite non è lineare, e precisa- 
mente è un esponenziale. Più avanti, nel Capitolo 10, studieremo l’algoritmo per 
trattare questa equazione, ma qui ci accontenteremo di una soluzione meno elegan¬ 
te, e cioè proveremo con diversi valori dell'esponente, fin quando troveremo il mi¬ 
gliore coefficiente di correlazione. 
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UNA EQUAZIONE A TRE VARIABILI 


Nel paragrafo precedente abbiamo studiato l’equazione di stato di un gas saturo 
per cui la pressione è funzione della temperatura. Consideriamo ora l’equazione di 
stato per un gas surriscaldato; la temperatura in questo caso è maggiore di quella di 
saturazione, o, da un altro punto di vista, la pressione è inferiore a quella di satura 
zione. Poiché in queste condizioni la temperatura e la pressione sono variabili indi 
pendenti, possiamo esprimere il volume in funzione di entrambe. 

Per un gas ideale l'equazione di stato è: 

VP = RT 

dove V è il volume molare, T è la temperatura, P è la pressione e R la costante dei 
gas. Ma all’aumentare della pressione, il comportamento del gas si allontana sem¬ 
pre più da quello di un gas ideale, e l’equazione diventa: 

PV = A + BP + CP 2 + DP 3 + ... 

che non è altro che lo sviluppo in serie di potenze della pressione. 

Fate attenzione a non confondere la costante del gas (R) con i residui (r); nel pro¬ 
gramma la costante dei gas si chiama R e i residui RESID. 

Poiché tutti i gas diventano ideali quando la pressione diminuisce sotto un certo 
valore, l’equazione di stato deve gradualmente trasformarsi in quella dei gas ideali, 
man mano che la pressione si avvicina allo zero; quindi il valore di A nell’equazione 
precedente deve essere uguale a RT. Poiché a basse pressioni basta un minor nu¬ 
mero di termini polinomiali, l'equazione di stato viene spesso scritta così: 

PV = RT + BP + CP 2 


Il calcolo dei coefficienti B e C è immediato quando la temperatura è costante; se 
invece è variabile, B e C sono funzioni della temperatura. 

Diverse equazioni di stato vengono usate, comunemente, tutte per altro empiri¬ 
che; come esempio di equazione a tre variabili, consideriamo l’espressione: 

PV = RT + j?+ CP 2 

In questo caso C non è funzione di T, ma il coefficiente originale B è diventato la 
funzione: 

r 

Questa equazione ha un coefficiente non lineare n, e non può quindi essere risolta 
con i metodi visti finora; se però assegnamo un valore ipotetico a n, possiamo deter- 
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ulnare gli altri coefficienti lineari. Cominceremo con rassegnare il valore 1 a n, e 
calcoleremo gli altri coefficienti; a questo punto potremo valutare con che fedeltà 
ecuazione risultante rappresenta i dati originali. Cambiando i valori di n vedremo 
qjale equazione è la migliore. 


PROGRAMMA PASCAL: UN’EQUAZIONE DI STATO 
per IL VAPORE 

Il programma di Figura 7.11 può essere usato per trovare i coefficienti B e C; 
poiché il coefficiente del primo termine a destra è 1, l’equazione può essere riscrit¬ 
ta: 

PV - RT = J*L + CP 2 
T 

I dati sono definiti nella GET_DATA; la temperatura è data in grandi Fahrenheit, 
la pressione in libbre per pollici quadrati e il volume specifico in piedi cubici per lib¬ 
bre massa. Le temperature sono convertite nella scala Rankine assoluta sommando 
460, mentre le pressioni restano in libbre per pollici quadrati; la costante R, che per 
il vapore vale 85.76, viene moltiplicata per 144 pollici quadrati per piedi quadrati. 

La matrice dei dati è creata nella procedura LINFIT, come af solito; la prima co¬ 
lonna contiene la pressione divisa per la potenza n-esima della temperatura, la se¬ 
conda contiene il quadrato della pressione; il vettore y contiene i valori PV - RT. 

Notate che è la prima volta che non abbiamo 1 nella prima colónna della matrice. 
Potremmo naturalmente dividere l'equazione per la pressione, e il secondo membro 
diventerebbe di primo grado; ma avremmo dei problemi quando la pressione si avvi¬ 
cina a zero. 


Confronto di diverse esecuzioni per determinare il valore di n 

Scrivete il programma della Figura 7.11 ed eseguitelo; notate che l’esponente n è 
inizialmente a 1, e i risultati si presentano come in Figura 7.12. 

Dalla figura 7.12 si vede che i risultati non sono molto buoni. Il coefficiente di cor¬ 
relazione è 92%, ma alcuni dei valori calcolati si allontanano di più del 10% da quelli 
originali. Tenteremo un'altra soluzione; modifichiamo la variabile POWER all’inizio 
del programma per dare il valore 2 all’esponente n, e precisamente poniamo PO¬ 
WER uguale al quadrato della temperatura. 

POWER : = SOR ( T[l]); 
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PROGRAM LEAST6(OUTPUT); 

(* 8 Feb 81 *) 

(# Programma pascal che esegue una *) 

(* interpolazione coi minimi quadrati #) 

(* sulle proprietà del valore #) 

(* con la routine Gauss-Jordan *) 

(* Sono necessarie le procedure separate: 

GAUSSJ, PLOT *) 

CONST 

AAAXR = 20 (* punti *); 

AAAXC = 4 (* termini polinomiali #); 

TYPE 

ARY = ARRAY[1 ..AAAXR] OF REAL; 

ARYS = ARRAY[1 ..AAAXC] OF REAL; 

ARY2 = ARRAYfl.. AAAXR, !..AAAXC] OF REAL; 

ARY2S = ARRAY[1..AAAXC, !..AAAXC] OF REAL; 

VAR 

P, T, V, Y, 

Y_CALC, RESID : ARY; 

COEF, SIG : ARYS; 

NROW, NCOL : INTEGER; 

CORREL_COEF : REAL; 

PROCEDURE GET _ DATA 

(VAR P, T : ARY; (* variabile indipendente *) 
VAR V : ARY; (# variabile dipendente *) 

VAR NROW : INTEGER); (* lunghezza dei vettori *) 

VAR 

I: INTEGER; 

BEGIN 

NROW := 12; 

T[l] : = 400; P[1] := 120; V[l] := 4.079; 

T[2] := 450; P[2] := 120; V[2] := 4.36; 

T[3] := 500; P[3] := 120; V[3] := 4.633; 

Figura 7.11 — Un'equazione di stato per il vapore. 
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T[4] 

= 400; P[4] 

= 140; V[4] 

= 3.466; 

T[5] 

= 450; P[5] 

= 140; V[5] 

= 3.713; 

T[6] 

= 500; P[6] 

= 140; V[6] 

= 3.952; 

T [7] 

= 400; P[7] 

= 160; V[7] 

= 3.007; 

T[8] 

= 450; P[8] 

= 160; V[8] 

= 3.228; 

T[9] 

= 500; P[9] 

= 160; V[9] 

= 3.44; 


T[10] := 400; P[10] := 180; V[10] := 2.648; 

T[11] := 450; P[ll] := 180; V[11 ] := 2.85; 

T[12] : = 500; P[12] := 180; V[12] := 3.042; 

FORI := 1 TONROWDO 

T[l] := T[l] 4- 460.0 (* conversione a Rankine *) 

END (* procedure get_data *); 

PROCEDURE WRITE_DATA; 

(# stampa i risultati *) 

VAR 

I: INTEGER; 

BEGIN 

WRITELN; 

WRITELN(' I P T V 

'Y YCALC %RES'); 

FORI := 1 TONROWDO 

WRITELN(I:3, P[l]:7:l, T[l]:7:l, V[l]:7:3, 
Y[I]:9:2,Y_CALC[I]:9:2, (100.0 * RESID[I]/Y[I]):9:2); 
WRITELN; 

WRITELN('Coefficienti errori'); 

WRITELN(COEF[l], ' SIG[1], 'Termine costante'); 

FOR I : = 2 TO NCOL DO 

WRITELN(COEF[l],.' SIG[I]) (* altri termini *); 
WRITELN; 

WRITELN 

('Il coefficiente di correlazione è', CORREI_COEF; 8: 5) 

END (* write_data *); 


Figura 7.11 — Un'equazione di stato per il vapore (segue). 
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(* PROCEDURE square(x : ary2; 

y : ary; 

VAR a : ary2s; 

VAR g : arys; 
nrow,ncol : integer); 

extern; *) 

(*$F SQUARE.PAS *) 

(* PROCEDURE gaussj 
(VAR b : ary2s; 

y : arys; 

VAR coef : arys; 

ncol : integer; 

VAR error : boolean); 
extern; *) 

(*$F GAUSSJ.RAS *) 

PROCEDURE LINFIT 

(P, T, V : (* variabile indipendente *) 

VAR Y : ARY; (* variabile dipendente ») 

VAR Y_CALC: ARY; (* var. dipendente calcolata #) 
VAR RESI D : ARY; (* matrice dei resti *) 

VAR COEF : ARYS; (* coefficienti *) 

VAR SIG :ARYS;(* errori nei coefficienti #) 

NROW : INTEGER; (* lunghezza delle matrici *) 
VAR NCOL : INTEGER); (* numero di termini *) 

(* interpola una equazione di stato attraverso 
nrow gruppi di p, t e v gruppi di punti *) 

(* Sono necessarie le procedure separate: 

SQUARE — formazione matrice dei coefficienti 
GAUSSJ — eliminazione di Gauss-Jordan #) 

CONST 

R = 85.76 (* costante del gas per il vapore *) 


Figura 7.11 — Un’equazione di stato per il vapore (segue). 
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VAR 

XMATR : ARY2; (* matrice dei dati #) 

A : ARY2S; (* matrice dei coefficienti *) 

G : ARYS; (* vettore delle costanti *) 

ERROR : BOOLEAN; 

I, J, NM: INTEGER; 

POWER, Yl, YC, SRS, 

SEE, SUM_Y, SUM_Y2: REAL; 

BEGIN (* procedure linfit *) 

NCOL : = 2 (* numero di termini *); 

FORI := 1 TONROWDO 

BEGIN (* carica la matrice X *) 

POWER : = T[l]; 

XMATRfl, 1] : = P[l]/POWER (* prima colonna #); 
XAAATR[I, 2] := SQRT(P[I]) (* seconda colonna *); 
Y[l] := V[l] * P[l] - R * T[l]/144.0 

END; 

SQUARE(XAAATR, Y, A, G, NROW, NCOL); 

GAUSSJ(A, G, COEF, NCOL, ERROR); 

SUM_Y := 0.0; 

SUM_Y2 := 0.0; 

SRS := 0.0; 

FORI := 1 TO NROW DO 
BEGIN 

Yl := Y[l]; 

YC := 0.0; 

FOR J : = 1 TO NCOL DO 

YC := YC + COEF[J] * XMATRfl, J]; 

Y_CALC[I] := YC; 

RESIDfl] := YC - Yl; 

SRS := SRS + SQR(RESID[I]); 

SUM_Y := SUM_Y + Yl; 

SUM_Y2 := SUM_Y2 + Yl * Yl 
END; 


Figura 7.11 — Un’equazione di stato per il vapore (segue). 
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CORREL_COEF : = 

SQRT(1.0 - SRS/(SUM_Y2 - SQR(SUM_Y)/NROW)); 

IF NROW = NCOL THEN NM : = 1 
ELSE NM : = NROW - NCOL; 

SEE := SQRT(SRS/NM); 

FOR I := ITO NCOL DO (* errori nella soluzione #) 

SIG[I] : = SEE * SQRT(A[I, I]) 

END (* linfit *); 

BEGIN (* programma principale *) 

GET_DATA(P, T, V, NROW); 

LINFIT(P, T, V, Y, Y_CALC, RESID, COEF, SIG, NROW, NCOL); 
WRITE_DATA 

END. 


Figura 7.11 — Un'equazione di stato per il vapore (segue). 


I 

P 

T 

V 

Y 

Y CALC 

XRES 

1 

120.0 

860.0 

4.079 

-22.70 

-19.44 

-14.36 

2 

120.0 

910.0 

4.360 

-18.76 

-17.43 

-7.07 

3 

120.0 

960.0 

4.633 

-15.77 

-15.63 

-0.92 

4 

140.0 

860.0 

3.466 

-26.94 

-24.16 

-10.30 

5 

140.0 

910.0 

3.713 

-22.14 

-21.82 

-1.44 

6 

140.0 

960.0 

3.952 

-18.45 

-19.72 

6.85 

7 

160.0 

860.0 

3.007 

-31.06 

-28.98 

-6.69 

8 

160.0 

910.0 

3.228 

-25.48 

-26.30 

3.24 

9 

160.0 

960.0 

3.440 

-21.33 

-23.90 

12.03 

10 

180.0 

860.0 

2.648 

-35.54 

-33.88 

-4.67 

11 

180.0 

910.0 

2.850 

-28.96 

-30.86 

6.59 

12 

180.0 

960.0 

3.042 

-24.17 

-28.16 

16.50 


coefficienti errori 

-2.62187e2 4.75869e1 Termine costante 

1.56514e0 6.49499e-1 


Il coefficiente di correlazione è 0.91839 


Figura 7.12 — Proprietà del vapore surriscaldato (n = 1). 
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Eseguite nuovamente il programma; i risultati si presenteranno come in Figura 

7.13. 

La curva risultante è meglio di prima; il coefficiente di correlazione è 98%, e i va¬ 
lori calcolati sono tutti in un intervallo del 5% intorno a quelli originali. Possiamo 
continuare così aumentando a 3 l’esponente, sostituendo alla precedente; 


POWER : = T[I]*SQR(T[I]); 


Eseguite il programma una terza volta, e confrontate i risultati con la Figura 7.14. 



I 

P 

T 

V 

Y 

Y CALC 

XRES 


1 

120.0 

860.0 

4.079 

-22.70 

-21.49 

-5.32 


2 

120.0 

910.0 

4.360 

-18.76 

-18.03 

-3.85 


3 

120.0 

960.0 

4.633 

-15.77 

-15.10 

-4.25 


4 

140.0 

860.0 

3.466 

-26.94 

-26.01 

-3.44 


5 

140.0 

910.0 

3.713 

-22.14 

-21.98 

-0.71 


6 

140.0 

960.0 

3.952 

-18.45 

-18.56 

0.58 


7 

160.0 

860.0 

3.007 

-31.06 

-30.59 

-1 .49 


8 

160.0 

910.0 

3.228 

-25.48 

-25.98 

2.00 


9 

160.0 

960.0 

3.440 

-21.33 

-22.08 

3.48 


10 

180.0 

860.0 

2.648 

-35.54 

-35.22 

-0.88 


11 

180.0 

910.0 

2.850 

-28.96 

-30.04 

3.74 


1 2 

180.0 

960.0 

3.042 

-24.17 

-25.64 

6.08 


coefficienti 

errori 





-1. 

99359e5 

i. 

19367e4 

Termine costante 



9. 

90932e-1 

i. 

80298e-1 





Il coefficiente di correlazione è 

0.98901 



Figura 

7.13 - 

Proprietà del vapore surriscaldato (n 

= 2). 



I 

p 

T 

V 

Y 

Y CALC 

XRES 


1 

120.0 

860.0 

4.079 

-22.70 

-22.88 

0.78 


2 

120.0 

910.0 

4.360 

-18.76 

-18.80 

0.22 


3 

120.0 

960.0 

4.633 

-15.77 

-15.52 

-1.59 


4 

140.0 

860.0 

3.466 

-26.94 

-26.97 

0.13 


5 

140.0 

910.0 

3.713 

-22.14 

-22.21 

0.35 


6 

140.0 

960.0 

3.952 

-18.45 

-18.39 

-0.32 


7 

160.0 

860.0 

3.007 

-31.06 

-31.09 

0.10 


8 

160.0 

910.0 

3.228 

-25.48 

-25.65 

0.68 


9 

160.0 

960.0 

3.440 

-21.33 

-21.28 

-0.23 


10 

180.0 

860.0 

2.648 

-35.54 

-35.22 

-0.90 


1 1 

180.0 

910.0 

• 2.850 

-28.96 

-29.10 

0.49 


12 

180.0 

960.0 

3.042 

-24.17 

-24.19 

0.06 


coefficienti 

errori 





-1.38664e8 

i. 

50165e6 

Termine costante 



2.99897e-1 

2. 

52008e-2 





Il coefficiente di correlazione è 

0.99963 




Figura 7.14 — Proprietà del vapore surriscaldato (n = 3). 
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Il risultato è indiscutibilmente migliore; i valori calcolati sono in un intervallo 
dell'1% intorno a quelli originali, e il coefficiente di correlazione è 99.96%. È il caso 
di tenere per buoni questi risultati, ma per toglierci ogni dubbio, portiamo a 4 l’espo¬ 
nente, con l'istruzione: 

POWER : = SQR(SQR(T[I ]) ); 

Eseguite il programma e confrontate i risultati con la Figura 7.15; siamo andati 
troppo lontano. Infatti i punti calcolati sono più lontani di prima da quelli originali e il 
coefficiente di correlazione è più lontano dall’unità; la procedura di Gauss-Jordan 
potrebbe dirci che la matrice è singolare, e il problema sta nel fatto che è mal condi¬ 
zionata, come si vede confrontando i quadrati dei due errori standard, il cui rapporto 
è di circa venti ordini di grandezza. 

Potremmo provare a migliorare la situazione con esponenti non interi, prossimi a 
3, ma i risultati ci mostrerebbero che 3 è il valore migliore. Un’altra possibilità è di 
rendere il coefficiente C funzione della temperatura, ma poiché il risultato con 3 è 
sufficientemente buono, possiamo accontentarci. 


I 

p 

T 

V 

Y 

Y CALO 

XRES 

1 

120.0 

860.0 

4.079 

-22.70 

-23.69 

4.38 

2 

120.0 

910.0 

4.360 

-18.76 

-19.32 

3.02 

3 

120.0 

960.0 

4.633 

-15.77 

-16.00 

1.45 

4 

140.0 

860.0 

3.466 

-26.94 

-27.46 

1 .94 

5 

140.0 

910.0 

3.713 

-22.14 

-22.36 

1.02 

6 

140.0 

960.0 

3.952 

-18.45 

-18.49 

0.19 

7 

160.0 

860.0 

3.007 

-31.06 

-31.22 

0.51 

8 

160.0 

910.0 

3.228 

-25.48 

-25.39 

-0.34 

9 

160.0 

960.0 

3.440 

-21.33 

-20.96 

-1.74 

10 

180.0 

860.0 

2.648 

-35.54 

-34.96 

-1 .62 

1 1 

180.0 

910.0 

2.850 

-28.96 

-28.41 

-1.89 

1 2 

180.0 

960.0 

3.042 

-24.17 

-23.43 

-3.08 

coefficienti 

errori 




-9. 

84751el0 

3. 

64805e9 

Termine 

costante 


-1. 

90703e-1 

6. 

82835e-2 





Il coefficiente di correlazione è 0.99571 


Figura 7.15 — Proprietà del vapore surriscaldato (n = 4). 
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SOMMARIO 


In questo capitolo abbiamo presentato il concetto di generalizzazione dei pro¬ 
grammi. Abbiamo visto diverse versioni del programma di interpolazione: 

, interpolazione lineare 
. interpolazione parabolica 

, interpolazione parabolica con approccio per matrici 
( interpolazione polinomiale generale con grado variabile del polinomio 
* interpolazione con equazione non polinomiale 

Tutti questi casi richiedono come unica condizione che i coefficienti siano lineari; 
nell'ultimo esempio del capitolo, invece, abbiamo visto come eliminare anche que¬ 
sta condizione. 

Dobbiamo comunque sviluppare altri metodi per trattare equazioni con coefficien¬ 
ti non lineari. 
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CAPITOLO 8 


RISOLUZIONE DI EQUAZIONI 
CON IL METODO DI NEWTON 


INTRODUZIONE 

In questo capitolo svilupperemo un programma per risolvere le equazioni con una 
tecnica particolare, che prende il nome di metodo di Newton o di Newton Raphson; 
è un metodo che si presta soprattutto a trovare radici particolari di funzioni continue 
e limitate. Useremo il metodo di Newton nel Capitolo 10, quando riparleremo dell’in- 
terpolazione con equazioni e coefficienti non lineari; naturalmente il metodo di Ne¬ 
wton ha molte altre applicazioni, e converrebbe quindi studiarlo anche se non do¬ 
vessimo usarlo nel resto di questo libro. 

Studieremo prima la formulazione matematica di questo metodo, e poi una serie 
di programmi Pascal, via via più complessi, per implementarlo sul calcolatore. Stu¬ 
dieremo in particolare due casi critici di questo metodo, il caso in cui la tangente al¬ 
la curva ha pendenza zero, e quello in cui successive approssimazioni non conver¬ 
gono a una radice, e vedremo come trattare questi due casi col nostro programma. 
Incontreremo anche la funzione SIN del Pascal, di cui ci siamo occupati già nel Ca¬ 
pitolo 1. Infine useremo il nostro programma per una applicazione pratica, l’equa¬ 
zione della pressione di un vapore. 


FORMULAZIONE MATEMATICA DEL METODO DI NEWTON 

Cominciamo con il considerare un'equazione del tipo: 

f(x) = 0 (1) 


Può avere una soluzione, diverse soluzioni o nessuna. In pratica possono esserci 
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dei valori di x per cui la f (x) diventa uguale a zero; questi valori prendono il nome di 
radici o soluzioni dell'equazione, e per valori diversi f(x) sarà diversa da zero. 

In certi casi l'equazione si può risolvere esplicitamente. Ad esempio l’espressio. 
ne: 


x 2 — 4 = 0 


può essere convertita in: 
x 2 = 4 


che ha le soluzioni: 
x = 2 e x = —2 

Ma qualche volta l’equazione non può essere risolta cosi facilmente, come nel ca¬ 
so della seguente espressione: 

In P = A + + C InT 

Questa formula, che trasformeremo in un programma alla fine del capitolo, de¬ 
scrive la pressione del vapore di una sostanza; P è la pressione, T è la temperatu¬ 
ra, A, B e C sono costanti diverse per ogni sostanza. Per il piombo, i coefficienti de¬ 
terminati sperimentalmente sono: 


A = 18.19 
B = -23180 
C = -0.8858 


quando la pressione è data in atmosfere e la temperatura in gradi Kelvin. 

Possiamo facilmente trovare la pressione dei vapori di piombo a 1000 °K risolven¬ 
do l'equazione: 


In P = A + 


B 

1000 


+ C In 1000 


Ma supponiamo di voler trovare la temperatura che corrisponde a una pressione 
di 0.1 atmosfere; dobbiamo risolvere l’equazione: 

In 0.1 = 18.19 - ^1?° - 0.8858 In T 

che non è lineare, e non può essere risolta esplicitamente; possiamo però usare un 
metodo di approssimazione per calcolare la soluzione con quanta precisione voglia¬ 
mo. 
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In generale noi scriviamo: 

y = f(x) 


e cerchiamo i valori di x per cui y diventa uguale a zero, cioè i punti in cui la curva 
incontra l’asse x. 

Consideriamo ad esempio la curva di equazione: 
y = f(x) = x 2 — 4 


che incontra l'asse x in due punti, +2 e —2 come si vede nella Figura 8,1 ; oppure la 
curva: 


y = f ( X ) = x 2 


Questa curva è tangente all'asse x nell’origine, dove ha una radice, x = 0, come si 
vede dalla Figura 8.2. 

Infine consideriamo l'equazione: 


y = f( X ) = x 2 + 4 


della Figura 8.3; la curva non incontra l’asse x, e non ha quindi radici reali. 



Figura 8.1 — Una funzione con due soluzioni. 
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Figura 8.2 — Una funzione con una soluzione. 



Figura 8.3 — Una funzione senza radici reali. 
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Studiamo il comportamento di una funzione 


y = f(x) 

in un intorno di una radice; potremmo trovare un andamento analogo a quello di Fi¬ 
gura 8.4. 

La curva incontra l’asse x in corrispondenza della radice, in quanto la relazione: 
y = f (x) = 0 

è soddisfatta in quel punto. 



Figura 8.4 — f(x) = 0 dove la curva incontra l'asse x. 

Una serie di tangenti alia curva y = f(x) 

Il metodo di Newton comincia col prendere un valore di x, x,, prossimo a una radi¬ 
ce; possiamo determinare il corrispondente valore di y dall’equazione y, = f (x,). La 
coppia x,, y, rappresenta un punto sulla curva che non è in genere una radice. Si co¬ 
struisce poi la tangente a f (x) in questo punto, la si prolunga fino a incontrare l'asse 
x e si prende il valore di questa intersezione (x 2 ) come seconda approssimazione al¬ 
la radice; nella Figura 8.5 si vede che x 2 è più vicino alla radice di x,, e rappresenta 
quindi un'approssimazione migliore della prima. 

Il procedimento viene ripetuto: si calcola il valore della funzione per x = x 2 per ot- 
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tenere il corrispondente valore di y, y 2 = f(x 2 ); y 2 è minore di y„ il che significa che è- 
più vicino alla radice. Viene costruita la tangente nel punto (x 2 , f(x 2 )), e la sua inter¬ 
sezione con l’asse x è x 3 , terza approssimazione. Possiamo continuare cosi fino a 
trovare un valore di x che approssima la radice quanto vogliamo. 

Facciamo un passo indietro, e analizziamo nel dettaglio il primo passo. La prima 
approssimazione x, corrisponde a y, = f(x,) ; la tangente costruita in questo punto ha 
una pendenza: 


f'(x { ) = 



( 2 ) 


poiché y, = f(x,), l'equazione 2 si può esprimere come: 
f(x,) 


x 2 = x, - 


f'(x,) 

o, più in generale, come: 


*/+1 %i 



( 3 ) 

( 4 ) 


dove x. è la i-esima approssimazione. L'equazione 4 è la formula generale che 
descrive il metodo di Newton, e può essere una tecnica ideale per trovare la radice 
di un'equazione reale. 

Questo metodo presenta alcuni problemi, che considereremo più avanti; comun¬ 
que le equazioni che descrivono l'andamento di fenomeni reali hanno tipicamente 
una sola radice significativa, mentre le altre radici sono negative, nulle o complesse. 



Figura 8.5 — La tangente incrocia l’asse delle x più vicino alla radice della prima 
approssimazione per x. 
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inoltre può darsi che il valore approssimato della risposta sia già noto; ad esempio la 
legge dei gas ideali fornisce una prima approssimazione di una più complessa equa¬ 
zione di stato. 

Avendo determinato un'equazione generale che descrive il metodo di Newton, 
sarà relativamente facile sviluppare il nostro programma. 


PROGRAMMA PASCAL: PRIMA APPLICAZIONE 
DEL METODO DI NEWTON 

Applicheremo il metodo di Newton ad un caso semplice, di cui conosciamo già la 
risposta. L’equazione da risolvere è: 

x 2 = 2 


o 


x 2 - 2 = 0 


( 5 ) 


la cui soluzione positiva è, naturalmente, la radice quadrata di 2. 


Definiamo prima di tutto la funzione: 
y = f( X ) = x 2 - 2 


( 6 ) 


e la sua derivata: 

dy = f (x) = 2 (7) 

dx 

In Figura 8.6 c'è il programma che risolve questa equazione con il metodo di 
Newton. L’algoritmo è contenuto nella procedura Newton, mentre una procedura a 
parte, la FUNC, esegue il calcolo della funzione (6) e della sua derivata (7). Il corpo 
del programma principale fornisce la prima approssimazione; poi chiama la proce¬ 
dura Newton per trovare la soluzione e stampare i risultati. 

Una buona regola di programmazione vuole che le procedure e le funzioni usate 
per il calcolo di certi valori non stampino risultati intermedi; ma in questo caso è i- 
struttivo osservare i successivi valori di x, f(x) e f'(x) durante il procedimento, perciò 
abbiamo messo un’istruzione di stampa nella procedura Newton; quando il program¬ 
ma è stato provato potete eliminarla. 
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PROGRAM NEWDR(OUTPUT); 

( * Versione 1,23 Gen 81 *) 

VAR 

X, X2 : REAL; 

ALLDONE : BOOLEAN; 

ERROR : BOOLEAN; 

PROCEDURE FUNC(X : REAL; 

VAR FX, DFX : REAL); 

BEGIN 

FX := X * X - 2.0; 

DFX := 2.0 * X 
END (* fune *); 

PROCEDURE NEWTON 

(VAR X: REAL); 

CONST 

TOL = 1.0E-6; 

VAR 

FX, DFX, DX, XI : REAL; 

BEGIN (* newton *) 

REPEAT 

XI := X; 

FUNC(X, FX, DFX); 

DX := FX/DFX; 

X : = XI - DX; 

WRITELN 

('x= ', XI, ', fx= ', FX, ', dfx= ', DFX) 
UNTIL ABS(DX) <= ABS(TOL * X) 

END (* newton *); 

Figura 8.6 — Metodo di Newton: prima versione 
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BEGIN (* programma principale #) 

WRITELN; 

X := 2.0 (* prima supposizione *); 
NEWTON(X); 

WRITELN; 

WRITELN ("La soluzione è', X); 
WRITELN 

END. 


Figura 8.6 — Metodo di Newton: prima versione (segue). 


Tolleranza 

Restano da fare alcune considerazioni: le approssimazioni successive sono rea¬ 
lizzate nella procedura NEWTON con un ciclo REPEAT/UNTIL, che viene ripetuto fin 
quando si trovano due valori successivi nella tolleranza desiderata. Non ci interessa 
il segno della differenza (DX) tra due successive approssimazioni, ma solo la sua 
ampiezza, che dobbiamo quindi conservare. 

Inoltre non ci interessa la differenza effettiva, ma solo quella relativa; se, per e- 
sempio, vogliamo una risposta precisa a un milionesimo (1 su IO 6 ), e una soluzione 
dell’equazione è 1, allora due valori successivi non dovranno differire per più di IO -6 , 
mentre se la soluzione è IO -6 non dovranno differire per più di IO -12 . Abbiamo scelto 
quindi un criterio relativo, invece che assoluto, per porre fine al procedimento itera¬ 
tivo. 


Generalizzazione delie chiamate alle procedure 

Dobbiamo fare anche alcune considerazioni sulla relazione tra la procedura 
NEWTON e la procedura da lei richiamata, FUNC, che calcola la funzione e le sue 
derivate. La NEWTON dà le direttive per eseguire le operazioni descritte dall’equa¬ 
zione 4, in modo indipendente dalla funzione su cui sta operando. Perciò, la FUNC 
deve essere una entità completamente separata. 

In teoria, il nome della procedura FUNC nella NEWTON, dovrebbe essere un pa¬ 
rametro dummy, mentre il nome vero dovrebbe essere passato alla NEWTON come 
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parametro effettivo durante la sua esecuzione. In questo modo, la NEWTON potreb¬ 
be risolvere direttamente diverse equazioni. Questo è facilmente realizzabile j n 
FORTAN, mentre i comuni compilatori Pascal non consentono in genere di passare 
nomi di procedure come parametri ad altre procedure. 

Se due o più diverse equazioni devono essere risolte con lo stesso programma 
dobbiamo fornire diverse copie separate della procedura NEWTON, ognuna natural¬ 
mente con un nome diverso. Una tecnica più complicata sarebbe quella di usare 
un’istruzione CASE nella FUNC, in modo da selezionare una funzione alla prima 
chiamata, un'altra alla successiva, e cosi via. 


Esecuzione del programma 


Scrivete il programma della Figura 8.6 e provatelo; la prima approssimazione per 
la radice quadrata di 2 è 2; il valore corretto si ottiene dopo parecchie iterazioni. I ri¬ 
sultati si presenteranno come in Figura 8.7. 


x = 

2.00000, 

f x = 

2.00000, 

df x = 

4.00000 

X = 

1.50000, 

f x = 

2.50000E-1, 

dfx = 

3.00000 

X = 

1 .41 667, 

f x = 

6.94442E-3, 

df x = 

2.83333 

X = 

1 .41422, 

f x = 

5.96046E-6, 

df x = 

2.82843 

X = 

1.41421, 

f x = 

-1.19209E-7, 

df x = 

2.82843 


La soluzione è 1.41421 


Figura 8.7 - La radice positiva di f(x) = x 2 — 2. 


Nel prossimo paragrafo apporteremo diverse piccole modifiche per rifinire questo 
programma; la prima ci consentirà di inserire diversi valori di prima approssimazio¬ 
ne per la soluzione, cosa importante per studiare equazioni con più di una radice. 


Input fornito dall’utente per la prima approssimazione 

Quando la prima versione del metodo di Newton funziona correttamente, possia¬ 
mo cominciare ad aggiungere altre prestazioni; nelle prossime versioni di questo ca¬ 
pitolo saranno previsti sia l’ingresso che l’uscita su console. Perciò, la prima linea 
del programma sorgente diventerà: 

PROGRAM NEWDR2 (INPUT, OUTPUT); 
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Fate una copia della prima versione, e modificate il programma principale (la par¬ 
te nell’ultimo blocco BEGIN/END) secondo II listing di Figura 8.8. 


BEGIN (* programma principale #) 

ALLDONE := FALSE; 

REPEAT 

WRITELN; 

WRITE ('Prima supposizione'); 

READLN( X); 

IF X < - 19.0 THEN ALLDONE := TRUE 

ELSE 

BEGIN 

NEWTON(X); 

WRITELN; 

WRITELN ("La soluzione è", X); 

WRITELN 

END 

UNTIL ALLDONE 
END. 


Figura 8.8 — Il programma principale della seconda versione. 

Compilate la nuova versione e provatela. Nella prima versione abbiamo usato 2 
come valore suggerito per la prima approssimazione; questa nuova versione è più 
sofisticata, e chiede all’utente di fornirgli in input il valore della prima approssima¬ 
zione; quelle successive, insieme con i valori della funzione e delle sue derivate, 
vengono stampati come prima. Alla fine il programma ricomincia da capo e chiede 
aH’utente di inserire un altro valore per la prima approssimazione. 

Esecuzione del programma per determinare la seconda radice 

Cominciate con il valore 2; i risultati dovrebbero essere gli stessi della prima ver¬ 
sione. La seconda volta provate con 1; la prima approssimazione è dall’altra parte 
della radice, ma la radice quadrata di 2 dovrebbe essere calcolata con poche itera¬ 
zioni. La terza volta inserite —2; notate che il procedimento di iterazione converge 
su di un’altra radice. 
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Sappiamo che l’equazione 


x 2 - 2 = 0 

ha due soluzioni; dando un valore negativo per la prima approssimazione abbiamo 
trovato l'altra radice. 

Studiate che cosa succede quando la prima approssimazione è vicina al valore di 
mezzo tra le due radici. Provate con 0.0001 ; in pochi passi avrete la risposta. Infine 
provate con 0; la curva 

y = f(x) 


ha pendenza zero in questo punto, e possono succedere due cose: o si ha un errore 
di divisione in floating point, o il programma entra in un ciclo senza fine. Questa si¬ 
tuazione sarà corretta nella prossima versione. 


Un test per pendenza zero 

Quando la derivata, o la pendenza della nostra funzione è zero, l’ultimo termine 
dell’equazione 4 diventa infinito. Stiamo cercando il punto in cui la tangente incontra 
l’asse delle x, ma come si vede dalla Figura 8.9 le due linee sono parallele, e quindi 
non hanno intersezione. 

Aggiungeremo ora alcune istruzioni per controllare la pendenza della curva nel 
nostro programma. Un modo per far ciò è di definire un numero molto piccolo, co¬ 
me: 


CONST SMALL = 1.0E -16; 


La pendenza può essere controllata con l’istruzione: 

IF ABS(DFX) <SMALL THEN... 

Naturalmente il valore assegnato alla SMALL deve essere adeguato alla versione 
del Pascal che stiamo usando, deve cioè essere scelto con cura. 

Il controllo che useremo noi è più immediato: 


IF DFX = 0.0 THEN.. 


Se la pendenza è zero, viene stampato un messaggio di errore e viene settato un 
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(lag; altrimenti il processo continua normalmente. Una seconda modifica deve esse 
r e fatta nel programma principale: spostate di due spazi a destra la linea 

WRITELN ('La soluzione è', X); 


che si trova verso la fine, e inserite immediatamente prima: 
IF NOT ERROR THEN 


Le due linee si presenteranno cosi: 

IF NOT ERROR THEN 

WRITELN (‘La soluzione è', X); 


Lo scopo di questa nuova istruzione è di controllare il flag di errore dopo ogni 
chiamata alla procedura NEWTON; se il flag è resettato non c’è errore, e viene 
stampata la soluzione. Modificate la procedura NEWTON secondo la Figura 8.10; 
compilate la nuova versione e provatela. 



Figura 8.9 — Dove f'(x) = 0 la tangente è parallela all'asse x. 
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PROCEDURE NEWTON 

(VAR X: REAL); 
(* 23 Gen 81 *) 

CONST 

TOL = 1.0E-6; 


FX, DFX, DX, XI : REAL; 

BEGIN (* newton *) 

ERROR := FALSE; 

REPEAT 

XI := X; 

FUNC(X, FX, DFX); 

IF DFX = O.OTHEN 

BEGIN 

ERROR : = TRUE; 

X := 1.0; 

WRITELNCERRORE: pendenza zero') 

END 

ELSE 

BEGIN 

DX : = FX/DFX; 

X : = XI - DX; 

WRITELN 

('x= XI, ', fx= FX, ', dfx= DFX) 

END 

UNTIL 

ERROR OR 

(ABS(DX) <= ABS(TOL * X)) 

END (★ newton *); 


Figura 8.10 - Il metodo di Newton con un test per tangente 0. 
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Esecuzione del programma con controllo della pendenza 


Date come valori iniziali 2,1 e —1 come prima, per vedere se il programma funzio¬ 
na bene; poi inserite zero, valore che prima provocava un errore di divisione in floa- 
ting point, e che dovrebbe ora essere trattato senza difficoltà. Il programma dovreb¬ 
be stampare un opportuno messaggio di errore, e chiedere un altro valore come pri¬ 
ma approssimazione. Per uscire dal programma si deve inserire un valore iniziale in¬ 
feriore a —19. 

L'ultima cosa che vogliamo ottenere è che il programma finisca, stampando un 
messaggio di errore, quando, dopo un certo numero di iterazioni, non converge su 
una radice. 


Quando il procedimento non converge 

In certi casi, il metodo di Newton non converge su una radice, dopo un ragionevo¬ 
le numero di iterazioni, ad esempio quando le approssimazioni successive oscillano 
intorno a una radice complessa, come nella Figura 8.11. 



Figura 8.11 — Una radice complessa. 
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La prima approssimazione, x,, dà origine a un secondo valore, x 2 , che riproduce 
ancora x, come terza approssimazione, e il procedimento non finisce più. 

Oppure può capitare che un'approssimazione sia molto lontana da una radice, an¬ 
che se il primo valore è vicino a una radice. Possiamo osservare questo comporta¬ 
mento con la versione precedente del metodo di Newton, dando come valore della 
prima approssimazione 0.00001. La seconda approssimazione ha un valore di 
20.000 che è decisamente fuori dai limiti; ogni successiva approssimazione è poi la 
metà di quella precedente. In questo caso si può anche trovare una soluzione, ma 
dopo più di venti iterazioni. 

Per proteggerci dall’eventualità che il procedimento non converga su una soluzio¬ 
ne, possiamo aggiungere un contatore di ciclo nella procedura NEWTON, in modo 
da interromperla se la convergenza non si verifica dopo un certo numero di iterazio¬ 
ni, ad esempio 20. In questo modo il programma è in grado di gestire sia il caso del¬ 
le oscillazioni, sia quello di un’approssimazione molto lontana da una radice. 

Modificate la procedura NEWTON secondo la Figura 8.12, compilate la nuova 
versione e provatela. Date una prima approssimazione di 500000, che è talmente 
lontana dalla radice da richiedere moltissimi cicli per convergere. Dopo 20 cicli il 
processo di iterazione finisce, e viene inviato un opportuno messaggio di errore. 
Provate poi con una prima approssimazione di 2 per assicurarvi che il programma 
funzioni correttamente. 

Abbiamo dunque sviluppato e perfezionato il nostro programma; possiamo ora u- 
sarlo per trovare le radici di equazioni più complesse. 


PROGRAMMI PASCAL: RISOLUZIONE DI ALTRE EQUAZIONI 

Consideriamo l’equazione non lineare: 


e* = 4x 


A differenza della precedente, questa non si può risolvere esplicitamente, mentre 
si presta proprio a essere risolta con il metodo di Newton. La corrispondente funzio¬ 
ne e le sue derivate sono: 


f(x) = e x - 4x 


f'{x) = e* - 4 
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PROCEDURE NEWTON 

(VAR X: REAL); 

(* 23 Gen 81 #) 

CONST 

TOL = 1.0E-6; 

AAAX = 20; 

VAR 

FX, DFX, DX, XI : REAL; 

I : INTEGER; 

BEGIN (* newton *) 

ERROR : = FALSE; 

I := 0; 

REPEAT 

I := I + 1; 

XI ;= X; 

FUNC(X, FX, DFX); 

IF DFX = 0.0THEN 

BEGIN 

ERROR : = TRUE; 

X := 1.0; 

WRITELN ('ERRORE: pendenza zero') 

END 

ELSE 

BEGIN 

DX := FX/DFX; 

X := XI - DX; 

WRITELN 

('x= XI, fx= FX, ', dfx= DFX) 

END 


Figura 8.12 — Metodo di Newton con un contatore di ciclo. 



UNTIL 

ERROR OR 
(I > AAAX) OR 

(ABS(DX) <= ABS(TOL * X)); 

IF I > AAAX THEN 
BEGIN 
WRITELN 

('ERRORE: non convergente in', 
MAX, 'cicli'); 

ERROR := TRUE 

END 

END (* newton *); 


Figura 8.12 — Metodo di Newton con un contatore di ciclo (segue). 

Cambiate la procedura FUNC secondo la figura 8.13. Notate che vi è stata intro¬ 
dotta la variabile E per non calcolare due volte e x . Ricordate che 



PROCEDURE FUNC(X : REAL; 
VAR FX, DFX : REAL); 

VAR 

E : REAL; 

BEGIN 

E : = EXP(X); 

FX : = E - 4.0 * X; 

DFX : = E - 4.0 
END (* fune *); 


Figura 8.13 — Procedura FUNC per e x = 4x. 
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Eseguite la nuova versione con una prima approssimazione di 4. Il programma 
dovrebbe convergere su un valore di 2.153, che è una delle due radici. L’altra radice 
si trova dando una prima approssimazione di 0.1, e la soluzione, in questo caso, è 
0.357. 

La prossima equazione contiene la funzione SIN, e quindi deve essere risol¬ 
ta in due modi diversi, a seconda del compilatore Pascal a disposizione. 


Una funzione con molte radici 

Studiamo le diverse radici dell’equazione: 


sin (x) = —— 

10 

Modificate la procedura FUNC secondo la Figura 8.14. 

Una delle radici della nuova equazione è zero; man mano che ci avviciniamo a 
questa radice, dobbiamo calcolare il SIN di numeri sempre più piccoli, e, come ab¬ 
biamo visto nel Capitolo 1, molti compilatori Pascal per microprocessori usano un 
procedimento che crea dei problemi in questi casi. Più precisamente, il problema è 
che l’argomento del SIN viene elevato al quadrato prima di effettuare un controllo 
sull’intervallo. 

Se non avete ancora eseguito il programma di test del Capitolo 1, dovete farlo a- 
desso. Se i risultati di questi test indicano che l’intervallo di applicazione della fun¬ 
zione SIN è lo stesso delle altre operazioni in floating-point, probabilmente potete u- 
sare la procedura FUNC della Figura 8.14. Se invece l’intervallo valido per la funzio¬ 
ne SIN è circa la radice quadrata di quello delle operazioni in floating-point, allora 
dovete usare la procedura FUNC della Figura 8.15. 


PROCEDURE FUNC(X : REAI; 
VAR FX, DFX : REAL); 

BEGIN 

FX := SIN( X ) - 0.1 * X; 
DFX := COS(X ) - 0.1 
END (* fune *); 


Figura 8.14 — Soluzione di sin(x) = x/10. 
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Controlli effettuati su diversi compilatori pascal hanno dato i seguenti valori: 



Sin 

General 

Pascal 1 

10 38 

IO" 38 

Pascal 2 

IO' 18 

IO"' 8 

Pascal 3 

IO' 18 

IO' 38 

Pascal 4 

IO" 2 ' 

IO" 64 

Pascal 5 

IO" 9 

IO"' 8 


La procedura di Figura 8.15 effettua un controllo sull’argomento del seno o del 
coseno; se è più piccolo di SM ALL, non vengono chiamate le funzioni SIN e COS di 
sistema, e viene assegnato il valore dell’argomento al seno, e il valore 1 al coseno. Il 
valore di SMALL dipende dal compilatore Pascal che usate; se siete in dubbio, usate 
il valore della Figura 8.15. 


PROCEDURE FUNC(X : REAL; 
VAR FX, DFX : REAL); 

CONST 

SAAALL = 1.0E-8; 

VAR 

S, C : REAL; 

BEGIN 

IF ABS(X) > SMALL THEN 
BEGIN 

S:=SIN(X); 

C : = COS( X ) 

END 

ELSE 

BEGIN 

S : = X; 

C := 1.0 

END; 

FX : = S - 0.1 * X; 

DFX := C - 0.1 
END (* fune *); 


Figura 8.15 - Procedura alternativa FUNC per sin(x) = x/10. 
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Compilate quest'ultima versione e provatela. Date una prima approssimazione di 
1.0, che dovrebbe far convergere il programma sulla radice zero. Poi provate con 
-1.0; anche in questo caso il programma dovrebbe convergere a zero. Questa e- 
quazione ha molte altre radici; la tabella di figura 8.16 dà le prime approssimazioni 
con le radici corrispondenti. Provatele tutte per verificare che il programma funzioni 
correttamente. 


V 

approssimazione 

radice 

-1 

0 

1 

0 

4 

2.852.. 

4.3 

7.068.. 

4.5 

0 

4.7 

-8.423.. 

5 

-2.852.. 

6 

7.068.. 

9 

8.423.. 


Figura 8.16 — Le radici di f(x) = sin x — x/10. 


PROGRAMMA PASCAL: 

L’EQUAZIONE DELLA PRESSIONE DI UN VAPORE 

Siamo in grado di risolvere l’equazione della pressione di un vapore introdotta al¬ 
l’inizio del capitolo. Scriviamo la funzione e la sua derivata: 

f(T) = A + -j- + C In T - In P 



Ricordate che A, B, C e P sono costanti. Fate una copia del programma di Newton 
e modificate la procedura FUNC secondo la Figura 8.17. Notate che si usa la lettera 
t al posto di X; questo è possibile perché i parametri della procedura sono ’’dummy”. 
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PROCEDURE FUNC(T : REAL; 

VAR FT, DFT : REAL); 

(* la pressione del vapore di conduzione *) 

CONST 

A = 18.19; 

B = -23180.0; 

C = -0.8858; 

LOGP = -4.60517 (* In(.Ol) *); 

BEGIN 

FT : = A + B/T + C * LN(T) - LOGP; 

DFT := — B/(T * T) + C/T 
END (* fune *); 


Figura 8.17 — Soluzione dell’equazione della pressione del vapore. 


Con questa versione della FUNC troveremo la temperatura corrispondente a una 
pressione di vapore di 0.01 atmosfere; il logaritmo di questa pressione, —4.60517 
viene introdotto direttamente come costante. 

Compilate la nuova versione del programma e provatela. Date una prima appros¬ 
simazione di 500, e il programma convergerà a una temperatura di 1416 in circa 
sette cicli. 


SOMMARIO 

Abbiamo visto come è facile scrivere un programma che applica il metodo di Ne¬ 
wton per trovare le radici di un’equazione, dapprima usando una funzione particolar¬ 
mente semplice, e poi perfezionando il programma per funzioni più complesse, co¬ 
me esponenziali e funzioni trigonometriche. Abbiamo infine risolto l'equazione di 
un’applicazione scientifica reale. 
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CAPITOLO 9 


INTEGRAZIONE NUMERICA 


INTRODUZIONE 

In questo capitolo svilupperemo tre diversi metodi per eseguire un'integrazione 
numerica, cioè per determinare l’area della figura sottesa da una curva, nell'Inter¬ 
vallo compreso tra due valori dati della variabile indipendente. Scriveremo un pro¬ 
gramma Pascal per ognuno di questi metodi, e confronteremo la loro efficienza. Tut¬ 
ti e tre questi metodi usano figure con area misurabile, di dimensioni sempre più pic¬ 
cole, che suddividono la figura di cui si deve calcolare l’area; la somma delle loro a- 
ree dà un valore approssimato dell'area della figura. 

Nel metodo trapezoidale, il lato superiore delle figure si ottiene da rette secanti la 
curva, mentre nel metodo di Simpson si ottiene da parabole. Entrambi questi metodi 
possono essere perfezionati calcolando l'errore con uno sviluppo in serie di Taylor 
(metodo di correzione finale). 

Il terzo metodo, quello di Romberg, è il più complesso; costruisce una matrice di 
interpolazioni per arrivare all’area totale. Una delle funzioni a cui applicheremo en¬ 
trambi i metodi, di Simpson e di Romberg, assomiglia alla funzione di distribuzione 
normale, su cui torneremo nel Capitolo 11. Infine, studieremo un metodo per inte¬ 
grare una funzione che tende all’infinito in uno dei limiti dell'Intervallo. 

Cominciamo con una breve descrizione dell’integrale definito e dei metodi per 
calcolarlo. 


L7NTEGRALE DEFINITO 


Il valore dell'integrale definito: 



f(x)dx = F(b) - F(a) 
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dove F'(x) = dF(x)/dx = f(x), può essere ihterpretato come misura dell’area della fi¬ 
gura sottesa dalla curva f(x), nell'Intervallo a-b, come illustrato nella figura 9.1. 

Il calcolo dell’integrale è immediato, in certi casi, mentre è molto difficile in altri. 
Per esempio, la serie di potenze: 

1 + 2x + 3x 2 


può essere integrata termine a termine nell’Intervallo a,b, e si ottiene: 
b + b 2 + b 3 - a — a 2 — a 3 


Funzioni più complesse possono essere integrate facendo uso delle tavole di inte¬ 
grazione che si trovano nei libri di matematica; talvolta si può usare la tecnica di in¬ 
tegrazione per parti, oppure sostituire la funzione originale con una serie o un’e¬ 
spansione asintotica, e integrare questa funzione. 



Può capitare che l’integrando non sia una vera e propria funzione, ma un insieme 
di dati sperimentali; in questo caso è possibile interpolare i dati con una funzione 
che viene poi integrata. Ci sono dei casi, però, in cui risulta impossibile o molto diffi¬ 
cile trovare un’espressione analitica dell’integrando; se sono noti i limiti, una solu¬ 
zione accettabile si può allora trovare con metodi di approssimazione. Questo ap¬ 
proccio prende il nome di integrazione numerica. 

Esistono diversi metodi di integrazione numerica, che comportano in genere la 
sostituzione della funzione originale con una facilmente integrabile, ad esempio una 
funzione polinomiale come una retta o una parabola, o una funzione trascendente 
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come il seno o il coseno. La precisione del risultato dipende da come la nuova fun¬ 
zione approssima l'originale. 

Nel prossimo paragrafo descriveremo i due metodi generali di sostituzione, e una 
semplice implementazione particolare della sostituzione con una retta. 


LA REGOLA TRAPEZOIDALE 


Uno dei metodi più semplici di integrazione numerica è quella nota come la regola 
trapezoidale. In questo metodo, la funzione originale è approssimata da un insieme 
di rette. La regione di spazio da integrare è suddivisa in tanti trapezi uguali, di lar¬ 
ghezza 


n 

dove n è il numero dei trapezi, e a e b sono gli estremi dell’intervallo di integrazione. 
Se la curva viene interpolata con una sola linea retta, cioè se c’è un solo trapezio 
(come in figura 9.2), l’area calcolata risulta: 

(b - a)[f(a) + f(b)] 

2 

dove f(a) è il valore della funzione all’estremo sinistro, e f(b) all'estremo destro. 

Nel caso più generale, la figura viene suddivisa in n trapezi; un trapezio interno 
generico è limitato a sinistra da una retta verticale passante per x., e a destra da una 
retta verticale passante per x. +Ax. Il lato inferiore del trapezio coincide con l’asse 
delle x, e la curva originale è sostituita con una linea retta, che in genere ha una tan¬ 
gente diversa da zero, cioè non è parallela all'asse delle x. La Figura che ne risulta 
ha la forma di un trapezio, da cui il nome del metodo. 

I trapezi possono essere numerati da 1 a n; a noi però interessa il valore della fun¬ 
zione all'estremo sinistro e a quello destro di ogni trapezio. Per n trapezi ci sono n — 
1 lati interni alla figura, più i due corrispondenti agli estremi dell’intervallo di integra¬ 
zione, per un totale di n+1 lati, numerati da 0 a n. 

L’area del primo trapezio è: 

[f(0) + fi 1)]Ax 
2 
o 

[f(a) + f(1)]Ax 
2 
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e l'area dell’ultimo trapezio è: 


[An-D + f(n)]Ax 

2 


[f(n - 1 ) + f(b)] Ax 
2 

L’area del trapezio i-esimo è: 

[A<- 1) + /(/)] Ax 
2 



Figura 9.2 — Calcolo dell’area con una sola sezione. 

dove f (i—1 ) è il valore della funzione all’estremo sinistro dell’i-esimo trapezio, e f (i) è 
il valore della funzione all’estremo destro. Il valore dell’integrale è la somma delle a- 
ree di tutti i trapezi, secondo l’espressione: 

{[/■(a) + AD] + [AD + f(2)l + [A 2 ) + A3)] + ... 

+ [f(n - 2) + f(n -1 )] + [f(n-1) + Ab)]} -y- 

II lato destro del primo trapezio è il sinistro del secondo, cosi come il lato sinistro 
dell'ultimo trapezio è il destro del penultimo. I lati di tutti gli altri trapezi sono in co- 
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mune a due di essi. La formula di integrazione con la regola trapezoidale può dun¬ 
que essere semplificata come segue: 


[f(a) + 2f(1) + 2f(2) + ... + 

Ax 

2f(n-2) + 2«n-1) + f(b)]— 

Il nostro primo programma su questo metodo ci consentirà di provare diverse 
suddivisioni dell’area totale, dando di volta in volta un diverso numero di trapezi. 


PROGRAMMA PASCAL: LA REGOLA TRAPEZOIDALE 
CON IL NUMERO DI TRAPEZI INTRODOTTO 
COME DATO DI INGRESSO DALL’UTENTE 

L'area calcolata con la regola trapezoidale approssima sempre meglio il valore 
effettivo dell'area al crescere del numero di trapezi, come dimostra il programma 
della Figura 9.3. Scrivete il programma ed eseguitelo. Il programma principale chie¬ 
de all'utente il numero delle sezioni in cui deve essere suddivisa la figura, e da que¬ 
sto dipende il risultato. 

L'algoritmo di integrazione è contenuto nella procedura TRAPEZ, e la funzione da 
integrare 

dx 
x 

è definita dalla funzione FX, che è una routine separata dalla TRAPEZ. Poiché que¬ 
sta funzione può essere facilmente integrata, possiamo confrontare il valore esatto 
dell'integrale con quello calcolato con la regola trapezoidale. 



PROGRAM TRAP1 (INPUT, OUTPUT); 

(* integrazione per mezzo della regola dei trapezi *) 
(* 24 Die 80 *) 

VAR 

DONE : BOOLEAN; 

SUM, UPPER, LOWER : REAL; 

PIECES : INTEGER; 


Figura 9.3 - La regola trapezoidale. 
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FUNCTION FX(X : REAL) : REAL; 


(* dichiara f(x) = 1/x *) 

(* si badi ad x = 0 *) 

BEGIN 

FX : = 1.0/X 

END; 

PROCEDURE TRAPEZ(LOWER, UPPER : REAL; 

PIECES : INTEGER; 

VAR SUM : REAL); 

(* integrazione numerica con il metodo dei trapezi *) 

(# la funzione è FX, gli estremi sono LOWER ed UPPER *) 
(* carica numero di vettori uguale a PIECES *) 

(* la partizione fissata è DELTA_X, il risultato è SUM *) 

VAR 

I : INTEGER; 

X, DELTA _X, ESUM, PSUM : REAL; 

BEGIN 

DELTA _X : = (UPPER - LOWER)/PIECES; 

ESUM := FX(LOWER) + FX(UPPER); 

PSUM := 0.0; 

FOR I : = 1 TO PIECES - 1 DO 

BEGIN 

X : = LOWER + I * DELTA _X; 

PSUM : = PSUM + FX(X) 

END; 


Figura 9.3 - La regola trapezoidale (segue). 
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SUM := (ESUM + 2.0 * PSUM) * DELTA _X * 0.5 
END; (* trapez *) 

BEGIN (# programma principale *) 

DONE := FALSE; 

LOWER := 1.0; 

UPPER := 9.0; 

WRITELN; 

REPEAT 

WRITE('Quante sezioni?'); 

READLN(PIECES); 

IF PIECES < 0 THEN DONE : = TRUE 

ELSE 

BEGIN 

TRAPEZ(LOWER, UPPER, PIECES, SUM); 
WRITELNf area = SUM) 

END 

UNTIL DONE 
END. 


Figura 9.3 - La regola trapezoidale (segue). 

Il valore dell’integrale è il logaritmo naturale di 9, cioè 2.197225. 
Studieremo ora una versione più sofisticata del programma. 


PROGRAMMA PASCAL: 

UNA REGOLA TRAPEZOIDALE PERFEZIONATA 

Possiamo migliorare il programma in due modi: prima di tutto possiamo modifica¬ 
re la procedura TRAPEZ in modo che divida automaticamente la figura originale in 
un numero sempre maggiore di sezioni, e poi possiamo evitare una gran quantità di 
calcoli usando ogni volta i risultati del ciclo precedente. 

Modificate il programma secondo la Figura 9.4, compilatelo ed eseguitelo. 


255 



PROGRAM TRAP2(OUTPUT); 


(* integrazione per mezzo della regola dei trapezi #) 
(* 6 Feb 81 *) 

CONST 

TOL = 1.0E-5; 


SUM, UPPER, LOWER : REAL; 

FUNCTION FX(X : REAL) : REAL; 

(* dichiara f(x) = 1/x *) 

(* si badi ad x = 0 *) 

BEGIN 

FX : = 1.0/X 

END; 

PROCEDURE TRAPEZ(LOWER, UPPER, TOL : REAL; 

VAR SUM : REAL); 

(* integrazione numerica con il metodo dei trapezi #) 

(* la funzione esterna è FX *) 

(* gli estremi sono LOWER ed UPPER *) 

(* con numero di regioni uguale a PIECES *) 

(* l’estensione delle partizioni è DELTA_X, il risultato è SUM *) 

VAR 

PIECES, I: INTEGER; 

X, DELTA_X, END _SUM, MID_SUM, SUM1: REAL; 


Figura 9.4 — Un metodo trapezoidale perfezionato. 
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BEGIN 

PIECES : = 1 ; 

DELTA _X := (UPPER - LOWER)/PIECES; 

END_SUM : = FX(LOWER) + FX(UPPER); 

SUM := END_SUM * DELTA _X/2.0; 

WRITELN(' l' ( SUM); 

MID_SUM : = 0.0; 

REPEAT 

PIECES := PIECES * 2; 

SUM1 : = SUM; 

DELTA _X := (UPPER - LOWER)/PIECES; 

FOR I : = 1 TO PIECES DIV 2 DO 

BEGIN 

X := LOWER + DELTA_X * (2.0 * I - 1.0); 

MID_SUM := MID_SUM + FX(X) 

END; 

SUM := (END_SUM + 2.0 * MID_SUM) * DELTA_X * 0.5; 
WRITELN(PIECES:5, SUM) 

UNTIL ABS(SUM - SUM1 ) <= ABS(TOL * SUM) 

END; (* trapez *) 

BEGIN (* programma principale *) 

LOWER := 1.0; 

UPPER := 9.0 
WRITELN; 

TRAPEZ(LOWER, UPPER, TOL, SUM); 

WRITELN; 

WRITELN(' area = SUM) 

END. 


Figura 9.4 — Un metodo trapezoidale perfezionato (segue). 
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Esecuzione del programma 

La prima volta, tutta la figura è considerata come un unico trapezio; il numero di 
sezioni viene poi raddoppiato, e viene calcolata nuovamente l'area. La procedura 
continua raddoppiando ogni volta il numero di suddivisioni; all'aumentare di questo 
aumenta la precisione del risultato, e, naturalmente, il tempo di esecuzione. Ad ogni 
ciclo vengono stampati il numero delle sezioni e il corrispondente valore dell’area; 
l’uscita si presenta come in Figura 9.5. 

Dalla Figura 9.5 si vede che il valore calcolato è tanto più vicino al valore esatto 
dell'integrale quanto maggiore è il numero di suddivisioni. Il procedimento ha termi¬ 
ne quando due valori consecutivi sono all’interno della tolleranza desiderata. La tol¬ 
leranza è una variabile globale a cui viene assegnato il valore IO -5 all’inizio del 
programma; potete cambiare questo valore in base alla precisione del vostro compi¬ 
latore Pascal; volendo, potete anche togliere dalla procedura TRAPEZ l’istruzione 
che stampa i risultati di ogni iterazione. 


1 

4.44444 

2 

3.02222 

4 

2.46349 

8 

2.27341 

16 

2.21733 

32 

2.20234 

64 

2.19851 

128 

2.19755 

256 

2.19731 

512 

2.19725 

1024 

2.19723 

area 

= 2.19723 


Figura 9.5 — Integrazione con il metodo trapezoidale perfezionato. 


In questa versione, il numero di suddivisioni ad ogni iterazione è il doppio del pre¬ 
cedente. Notate che non è necessario ricalcolare le misure di ogni lato ad ogni itera¬ 
zione; supponiamo ad esempio di usare a un certo punto quattro trapezi; il ciclo suc¬ 
cessivo ne userà 8. Poiché i lati dei trapezi del ciclo precedente sono comuni a quel¬ 
li del ciclo attuale, è più rapido conservare la loro somma e utilizzarla nel ciclo at¬ 
tuale piuttosto che ricalcolare tutte le misure. Devono essere calcolate solo le misu¬ 
re dei lati corrispondenti ai punti di mezzo tra due della precedente suddivisione, per 
poi sommarle alla precedente somma dei valori interni. La nuova somma è poi molti- 
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plicata per 2 e aggiunta ai valori corrispondenti agli estremi dell'intervallo di integra¬ 
zione; infine il risultato è moltiplicato per 2. 

Questa versione è più veloce della precedente, ma presenta gli stessi errori. Il 
problema è che cerchiamo di interpolare una curva con un insieme di linee rette. Se 
la curva originale non è essa stessa una retta, ci vorranno molte iterazioni prima di 
convergere su un buon risultato. 

Nell’ultima versione della regola trapezoidale aggiungeremo una procedura di 
"correzione finale” al nostro programma. 


Tecniche di correzione finale 


Possiamo migliorare ulteriormente il nostro programma con dei fattori di correzio¬ 
ne che si ottengono da uno sviluppo in serie di Taylor. Questi termini contengono la 
derivata seconda della funzione, ma fortunatamente si possono usare al loro posto 
dei termini semplificati. I termini relativi ai punti intermedi scompaiono, lasciando 
solo quelli relativi agli estremi inferiore e superiore dell'Intervallo. Cosi il termine di 
correzione maggiore contiene la derivata della funzione calcolata agli estremi x 0 e 
x„. La quantità da aggiungere alla somma è 

[f'(b) - P(a)](Ax ) 2 

12 

dove f'(b) è il valore della tangente in b e f'(a) è il valore della tangente in a. Il valore 
risultante è sottratto dalla somma trapezoidale. Questo metodo è noto come la rego¬ 
la trapezoidale con correzione finale. 


PROGRAMMA PASCAL: 
REGOLA TRAPEZOIDALE CON 
CORREZIONE FINALE 


Fate una copia del programma precedente. Aggiungete la funzione DFX (Figura 
9.6) subito dopo la funzione FX. Questa procedura calcola la derivata della funzione. 
Avremmo potuto naturalmente calcolare la funzione e la sua derivata in una stessa 
routine, ma avremmo dovuto usare una procedura invece che una funzione. Inoltre 
la derivata va calcolata solo agli estremi. Modificate la procedura TRAPEZ secondo 
la figura 9.6. 
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FUNCTION DFX(X : REAL) : REAL; 


(* dichiara la derivata di f(x) = 1/x *) 

BEGIN 

DFX := — 1.0/SQR(X) 

END; 

PROCEDURE TRAPEZ(LOWER, UPPER, TOL : REAL; 

VAR SUM : REAL); 


(* integrazione numerica con il metodo dei trapezi #) 

(* la funzione esterna è FX *) 

(* gli estremi sono LOWER ed UPPER #) 

(* con un numero di regioni uguale a PIECES *) 

(# la misura delle partizioni è DELTA_X, il risultato è SUM #) 

VAR 

PIECES,I : INTEGER; 

X, DELTA_X, END_SUM, MID_SUM, 

END _ COR, SUM1 : REAL; 


BEGIN 

PIECES := 1; 

DELTA_X ; = (UPPER - LOWER)/PIECES; 
END_SUM := FX(LOWER) + FX(UPPER); 

END_COR := (DFX(UPPER) - DFX(LOWER))/12.0; 
SUM := END_SUM * DELTA_X/2.0; 

WRITELN(' 1', SUM); 

MID_SUM ;= 0.0; 


Figura 9.6 - Funzione DFX e procedura TRAPEZ con correzione finale. 
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REPEAT 

PIECES := PIECES * 2; 

SUMI := SUM; 

DELTA_X := (UPPER - LOWER)/PIECES; 

FOR I : = 1 TO PIECES DIV 2 DO 

BEGIN 

X := LOWER + DELTA_X * (2.0 * I - 1.0); 
MID_SUM := MID_SUM + FX(X) 

END; 

SUM := (END_SUM + 2.0 * MID_SUM) * DELTA_X 
* 0.5 - SQR(DELTA_X) * END_COR; 
WRITELN(PIECES:5, SUM) 

UNTIL ABS(SUM - SUMI )<= ABS(TOL * SUM) 

END (* trapez *); 


Figura 9.6 — Funzione DFX e procedura TRAPEZ con correzione finale (segue). 

Esecuzione del programma 

Compilate il programma ed eseguitelo; i risultati si presenteranno come in Figura 
9.7. 

Notate come il procedimento converge molto più rapidamente in questo caso; no- 
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4.44444 

2 

1.70535 

4 

2.13427 

• 8 

2.19111 

16 

2.19675 

32 

2.19719 

64 

2.19722 

128 

2.19723 

area 

= 2.19723 


Figura 9.7 — Integrazione trapezoidale con correzione finale. 
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tate anche che durante il processo di iterazione, la somma supera il valore esatto e 
poi inverte la sua direzione. Dovrebbe essere chiaro, d’altra parte, che non è sem¬ 
pre possibile usare la tecnica di correzione finale con la regola trapezoidale, ad e- 
sempio quando la tangente in un estremo è infinita o molto grande; discuteremo 
questo caso alla fine del capitolo. Inoltre, se la funzione ha tangente zero agli estre¬ 
mi, il termine di correzione è nullo. 

La regola trapezoidale sostituisce la funzione con una polinomiale del primo ordi¬ 
ne (una retta). In molti casi è facile immaginare che una funzione polinomiale del 
secondo ordine (una parabola) andrebbe meglio; su questa ipotesi si basa il metodo 
che implementeremo con il prossimo programma. Studieremo tre diverse esecuzio¬ 
ni del programma, la prima con la stessa funzione trattata dal programma della re¬ 
gola trapezoidale, poi con un'esponenziale e infine con la funzione seno. 


PROGRAMMA PASCAL: METODO DI INTEGRAZIONE DI SIMPSON 


Il metodo di integrazione numerica di Simpson è simile a quello trapezoidale, ma 
la curva originale è sostituita da un insieme di parabole invece che di rette. Poiché 
una parabola può essere definita da un minimo di tre punti, dobbiamo dividere la fi¬ 
gura originale in un numero pari di sezioni. Ogni parabola interpola la curva su due 
sezioni adiacenti. In genere ci si può aspettare che le parabole interpolino la curva 
con miglior approssimazione delle rette, e quindi sarà necessario un minor numero 
di suddivisioni per ottenere una buona convergenza. La formula è: 


<fo+fn+ 4 n ±' fi+2 I 2 fi) É± 
1-1 1-2 3 
i odd i even 


Prima esecuzione del programma del metodo di Simpson 

Scrivete il programma della Figura 9.8 ed eseguitelo; i risultati si presenteranno 
come in Figura 9.9. 

Confrontate la Figura 9.9 con la 9.5 e la 9.7. In ogni punto, il valore dell’integrale 
ottenuto con la regola di Simpson è più vicino a quello esatto del valore ottenuto con 
la regola trapezoidale, a parità del numero di suddivisioni. Di conseguenza è neces¬ 
sario un minor numero di iterazioni e la convergenza si ottiene più rapidamente. 
D’altra parte, la convergenza è circa la stessa del metodo trapezoidale con corre¬ 
zione finale. 

Ad ogni ciclo del metodo di Simpson, la funzione viene calcolata solo alle posizio¬ 
ni dispari. La somma relativa alle posizioni pari si ottiene da quella di tutte le posizio¬ 
ni intermedie del ciclo precedente, sia pari che dispari. 
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PROGRAM simpl (output); 

(* integrazione con il metodo di Simpson #) 

(# 24 Die 80 *) 

CONST 

TOL = 1.0E-5; 

VAR 

SUM, UPPER, LOWER : REAL; 

FUNCTION FX(X : REAL) : REAL; 

(* dichiara f(x) = 1/x *) 

(* si badi a x = 0 *) 

BEGIN 

FX := 1.0/X 
END (* function fx *); 

PROCEDURE SIMPS(LOWER, UPPER, TOL : REAL; 

VAR SUM : REAL); 

(* integrazione numerica con la regola di Simpson *) 

(* la funzione è FX, gli estremi sono LOWER ed UPPER *) 
(* con un numero di regioni uguale a PIECES *) 

(* la partizione è DELTA_X, il risultato è SUM *) 

VAR 

I : INTEGER; 

X, DELTA _X, EVEN _SUM, 

ODD_SUM, END _ SUM, SUM1 : REAL; 

PIECES : INTEGER; 

Figura 9.8 - Regola di Simpson. 
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BEGIN 

PIECES := 2; 

DELTA_X := (UPPER - LOWER)/PIECES; 

ODD_SUM : = FX(LOWER + DELTA_X); 

EVEN _ SUM := 0.0; 

END_SUAA := FX(LOWER) + FX(UPPER); 

SUM : = (END_SUM + 4.0 * ODD_SUM) * DELTA_X/3.0; 
WRITELN(PIECES:5, SUM); 

REPEAT 

PIECES := PIECES * 2; 

SUM1 := SUM; 

DELTA_X := (UPPER - LOWER)/PIECES; 

EVEN _SUM : = EVEN _ SUM + ODD_SUM; 

ODD_SUM := 0.0; 

FOR I: = 1 TO PIECES DIV 2 DO 

BEGIN 

X := LOWER + DELTA_X * (2.0 * I - 1.0); 
ODD_SUM := ODD_SUM + FX(X) 

END; 

SUM := (END_SUM + 4.0 * ODD_SUM 
+ 2.0 * EVEN_SUM) * DELTA_X/3.0; 
WRITELN(PIECES:5, SUM) 

UNTIL ABS(SUM - SUM1)<= ABS(TOL * SUM) 

END (* simps *); 

BEGIN (* programma principale #) 

LOWER := 1.0; 

UPPER := 9.0; 

WRITELN; 

SIMPS(LOWER, UPPER, TOL, SUM); 

WRITELN; 

WRITELN(' area = SUM) 

END. 


Figura 9.8 — Regola di Simpson (segue). 
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Seconda esecuzione del programma di Simpson 
Una funzione esponenziale 

Consideriamo un secondo esempio di integrazione con il metodo di Simpson. 
La funzione che studieremo assomiglia alla distribuzione normale descritta nel Ca¬ 
pitolo 2, e anche alla funzione errore descritta nel Capitolo 11. Questa volta calcole¬ 
remo l’integrale tra 0 e 1. 

Fate una copia del programma precedente e modificatelo in modo da trovare il 
valore dell'integrale: 

e-* J dx 

Modificate la funzione FX come segue: 



FUNCTION TX(X:REAL) : REAL; 

BEGIN 

FX : = EXP(-X*X) 

END; 


2 

2.54815 

4 

2.27725 

8 

2.21005 

1 6 

2.19864 

32 

2.19734 

64 

2.19723 

128 

2.19723 

area 

= 2.19723 


Figura 9.9 — Integrazione con la regola di Simpson. 


Poi modificate gli estremi di -integrazione nella prima e nella seconda linea del 
programma principale come segue: 


LOWER: = 0.0; 
UPPER: = 1.0; 


Eseguite la nuova versione e confrontate i risultati con la Figura 9.10. Notate co¬ 
me il procedimento converge rapidamente. 
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2 

0.747180 

4 

0.746855 

8 

0.746826 

1 6 

0.746824 

area = 

0.746824 


Figura 9.10 — Integrazione di e *’ con la regola di Simpson. 

Terza esecuzione del programma di Simpson — Una funzione periodi¬ 
ca 

Le funzioni che abbiamo integrato finora hanno la curvatura nello stesso senso in 
tutto l'intervallo di integrazione. Consideriamo ora la funzione periodica: 

sin 2 x 

nell'intervallo da 0 a 4 ji. Questa funzione è sempre positiva, e, di conseguenza, l'in¬ 
tegrale in qualsiasi intervallo dovrebbe dare un risultato positivo; ha però valore zero 
agli estremi dell'Intervallo, nel punto di mezzo e nei punti che si trovano a un quarto 
e a tre quarti dell'Intervallo. Perciò, la prima area calcolata, sia con la regola trape¬ 
zoidale che con il metodo di Simpson, sarà nulla. La successiva approssimazione, 
invece, con il metodo di Simpson darà un risultato positivo. 

Fate una copia del programma precedente per calcolare questa funzione nell'in¬ 
tervallo tra 0 e 4n. Aggiungete l’istruzione: 

PI = 3.141593; 

nella dichiarazione delle costanti all'inizio del programma; poi modificate la funzione 
FX come segue: 

BEGIN 

FX : = SQR(SIN(X)) 

END; 


Infine modificate gli estremi dell’intervallo nelle prime linee del programma princi¬ 
pale: 


LOWER: = 0.0; 
UPPER: = 4.0* PI; 
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Eseguite il programma e confrontate i risultati con la Figura 9.11. 


2 

8.57179E-12 

A 

7.55984E-12 

8 

8.37758 

16 

6.28319 

32 

6.28319 

area 

= 6.28319 


Figura 9.11 — L'integrale di sin 2 x tra 0 e An. 


Se avessimo programmato questa routine in modo da finire quando il valore asso¬ 
luto dell'area diventa inferiore a TOL, si sarebbe fermata dopo il primo ciclo, dando 
come risultato circa zero, invece che il valore esatto 6.28319. Si capisce quindi 
perchè abbiamo dovuto scegliere una tolleranza relativa come criterio di convergen- 


Ricaveremo ora una formula per la correzione finale per il metodo di Simpson. 


PROGRAMMA PASCAL: 

IL METODO DI SIMPSON 
CON CORREZIONE FINALE 

Le tecniche di correzione dell’errore si possono applicare al metodo di Simpson 
come a quello trapezoidale. Il termine principale contiene la derivata quarta della 
funzione, ma in questo caso è meglio usare un'approssimazione che richiede solo la 
derivata prima. Come per la regola trapezoidale, il calcolo della derivata è necessa¬ 
rio solo agli estremi dell'Intervallo. La formula del metodo di Simpson con correzione 
finale è la seguente: 

{7(fo + fn) + 14 "i 2 fi + 16 "l fi + Ax[f(a) - f(b)]} 

/-2 * /-I 15 

/ even / odd 

Esecuzione del programma con correzione finale 

Fate una copia del programma di integrazione di Simpson della Figura 9.8. Ag¬ 
giungete la funzione DFX che abbiamo usato nel metodo trapezoidale con correzio¬ 
ne finale e modificate la procedura Simpson secondo la Figura 9.12. 
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PROCEDURE SIMPS(LOWER, UPPER, TOL : REM; 

VAR SUM : REM); 

(# integrazione numerica con la regola di Simpson *) 

(* la funzione è FX, gli estremi sono LOWER e UPPER *) 

(* con un numero di regioni uguale a PIECES *) 

(* la partizione è DELTA_X, il risultato è SUM *) 

VAR 

I : INTEGER; 

X, DELTA _X, EVEN _ SUM, 

ODD_SUM, END _ SUM, 

END _COR, SUM1 : REM; 

PIECES : INTEGER; 

BEGIN 

PIECES : = 2; 

DELTA_X : = (UPPER - LOWER)/PIECES; 

ODD_SUM := FX(LOWER + DELTA _X); 

EVEN _ SUM := 0.0; 

END_SUM := FX(LOWER) + FX(UPPER); 

END_COR : = DFX(LOWER) - DFX(UPPER); 

SUM := (END_SUM + 4.0 * ODD_SUM) * DELTA_X/3.0; 
WRITELN(PIECES:5, SUM); 

REPEAT 

PIECES := PIECES * 2; 

SUM1 := SUM; 

DELTA_X := (UPPER - LOWER)/PIECES; 

EVEN _ SUM := EVEN _ SUM + ODD_SUM; 

ODD_SUM := 0.0; 

FOR l:= 1 TO PIECES DIV 2 DO 


Figura 9.12 — Procedura SIMPS con correzione finale. 


268 




BEGIN 

X := LOWER + DELTA_X * (2.0 * I - 1.0); 
ODD_SUM := ODD_SUM + FX(X) 

END; 

SUM := (7.0 * END_SUM + 14.0 * EVEN_SUM 

+ 16.0 * ODD_SUM + END_COR * DELTA_X) 
* DELTA _ X/15.0; 

WRITELN(PIECES :5, SUM) 

UNTIL ABS(SUM - SUM1 ) <= ABS(TOL * SUM) 

END (* simps *); 


Figura 9.12 — Procedura SIMPS con correzione finale (segue). 


Eseguite il programma e confrontate i risultati con la Figura 9.13. Questa tecnica 
produce la convergenza più rapida rispetto alle altre tecniche usate finora. D'altra 
parte, come con il metodo trapezoidale, il termine di correzione finale non può esse¬ 
re usato se la tangente è prossima all’infinito. Inoltre, se la funzione ha tangente ze¬ 
ro in entrambi gli estremi dell'Intervallo, il termine di correzione finale è zero. 

Nel prossimo paragrafo studieremo una tecnica di integrazione numerica un po’ 
più complicata, e la implementeremo con un programma Pascal; eseguiremo poi il 
programma con le stesse tre funzioni a cui abbiamo applicato il metodo di Simpson. 
Potremo cosi confrontare i due metodi. 
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2.54815 
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2.19490 
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2.19713 

32 

2.19722 

64 

2.19722 

area 

= 2.19722 


Figura 9.13 — Integrazione con la regola di Simpson con correzione finale. 
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IL METODO DI ROMBERG 


Il metodo di Simpson, che usa un sistema di equazioni del secondo ordine, rap¬ 
presenta un superamento del metodo trapezoidale che abbiamo usato con equazioni 
del primo ordine. Possiamo ora tentare di perfezionare ulteriormente il metodo di in¬ 
tegrazione numerica sostituendo la curva originale con un insieme di funzioni poli¬ 
nomiali del terzo ordine o di ordine superiore. Esiste un altro approccio, noto come il 
metodo di integrazione di Romberg, con cui l’area viene calcolata con il metodo tra¬ 
pezoidale, evitando però gli errori tipici di questo metodo con una interpolazione. 

Indichiamo la sequenza dei valori del metodo trapezoidale con t,,, t 21 , t 3 „ etc., 
che vengono assegnati alla prima colonna della matrice bidimensionale T. I valori 
interpolati di primo livello sono t, 2 , t 22 , t 32 , etc., e occupano la seconda colonna della 
matrice T. Interpolando questi ultimi valori otteniamo una terza colonna t, 3 , t 23 , t 33 , 
etc. 


11 

*12 

*13 

21 

*2 2 

( 23 

31 

h 2 

(33 


Continuando così troveremo che i valori ottenuti con l'interpolazione convergono 
rapidamente verso il valore esatto dell’integrale. Il vantaggio di questo metodo è che 
la funzione deve essere calcolata solo per i valori della prima colonna, che sono 
quelli della normale regola trapezoidale, e non deve essere calcolata per i valori del¬ 
le altre colonne. Ogni valore è ottenuto da una combinazione del dato a sinistra e da 
quello immediatamente sotto questo. Per esempio: 


- 4t 21 ~ *11 


t = 21 

— 


= 


4t 31 ~ t 2^ 


t,3 = 


16t 22 - t, 2 
15 


L’algoritmo generale è: 


Ta = 


4< + - ti,j -1 

4 rT ~l 
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PROGRAMMA PASCAL: 

INTEGRAZIONE COL METODO DI ROMBERG 

La Figura 9.14 mostra un programma che può essere usato per eseguire l’integra¬ 
zione numerica con il metodo di Romberg. Scrivetelo ed eseguitelo. 

PROGRAM ROMBI (OUTPUT); 

(* integrazione per mezzo del metodo di Romberg *) 

(* 24 Die 80 *) 

CONST 

TOL = 1.0E-5; 

VAR 

DONE : BOOLEAN; 

SUM, UPPER, LOWER : REAL; 

FUNCTION FX(X : REAL) : REAL; 

(# dichiara f(x) = 1/x *) 

(* si badi ad x = 0 *) 

BEGIN 

FX := 1.0/X 

END; 

PROCEDURE ROMB(LOWER, UPPER, TOL : REAL; 

VAR ANS : REAL); 

(* integrazione numerica con il metodo di Romberg #) 


NX : ARRAY[1 .. 16] OF INTEGER; 

T : ARRAY[1..136] OF REAL; 

DONE, ERROR : BOOLEAN; 

PIECES, NT, I, II, N, NN, 

L, NTRA, K, M, J : INTEGER; 

DELTA _X, C, SUM, FOTOM, X : REAL; 

Figura 9.14 — Il metodo di Romberg. 
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BEGIN 

DONE := FALSE; 

ERROR := FALSE; 

PIECES := 1; 

NX[1]:= 1; 

DELTA_X : = (UPPER - LOWER)/PIECES; 

C := (FX(LOWER) + FX(UPPER)) * 0.5; 

T[l] : = DELTA_X * C; 

N := 1; 

NN := 2; 

SUM := C; 

REPEAT 

N : = N + 1 ; 

FOTOM : = 4.0; 

NX[N] : = NN; 

PIECES : = PIECES * 2; 

L := PIECES - 1; 

DELTA_X := (UPPER - LOWER)/PIECES; 

(calcola la somma trapezoidale per 2T(n — 1) + 1 punti *) 
FOR II := 1 TO (L + l)DIV2DO 

BEGIN 

I := Il * 2 - 1; 

X : = LOWER + I * DELTA _X; 

SUM : = SUM + FX(X) 

END; 

T[NN] := DELTA_X * SUM; 

WRITE(PIECES:5, T[NN]); 

NTRA : = NX[N —1]; 

K := N — 1 ; 

(* calcola la n-sima riga della matrice T *) 

FOR M : = 1 TO K DO 


Figura 9.14 II metodo di Romberg (segue). 
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BEGIN 

J := NN + M; 

NT := NX[N —1] + M - 1; 

T[J] := (FOTOM * T(J — 1 ] - T[NT])/(FOTOM - 1.0); 

FOTOM := FOTOM * 4.0 

END; 

WRITELN(J :4, T[J]); 

IF N > 4 THEN 
BEGIN 

IF T[NN +1 ] <> 0.0 THEN 

IF (ABS(T[NTRA + 1] - T[NN + 1])< = ABS(T[NN + 1] * TOL)) 
OR (ABS(T[NN — 1 ] - T[J])<= ABS(T[J] * TOL)) THEN 
DONE : = TRUE 

ELSE IFN> 15 THEN 
BEGIN 

DONE : = TRUE; 

ERROR := TRUE 

END 

END; (* IFn>4 *) 

NN:= J + 1 
UNTIL DONE; 

ANS := T[J] 

END (* romberg *); 

BEGIN (* programma principale *) 

LOWER := 1.0; 

UPPER := 9.0; 

WRITELN; 

ROMB(LOWER, UPPER, TOL; SUM); 

WRITELN; 

WRITELN(' area = SUM) 

END. 


Figura 9.14 II metodo di Romberg (segue). 
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Prima esecuzione del programma di Romberg 


I valori ottenuti con la regola trapezoidale sono stampati ad ogni ciclo, come pri¬ 
ma; inoltre sono stampati i valori ottenuti tramite interpolazione nella parte destra 
della matrice. I risultati si presentano come in Figura 9.15. 
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Figura 9.15 — Integrazione con il metodo di Romberg. 


Confrontando i valori della Figura 9.15 con quelli delle tabelle precedenti si vede 
che il metodo di Romberg converge anche più rapidamente (in questo caso) del me¬ 
todo di Simpson. 


Seconda esecuzione del metodo di Romberg 
Una funzione esponenziale 

Modificazione il metodo di Romberg per calcolare l'integrale 



o 


Modificate la funzione FX come segue 

FUNCTION FX(X : REAL) : REAL; 

BEGIN 

FX : = EXP(—X* X) 

END; 


e i limiti definiti nelle prime linee del programma principale: 

LOWER : = 0.0; 

UPPER : = 1.0; 


274 




Eseguite il metodo di Romberg con la nuova formula; i risultati si presenteranno 
come in Figura 9.16. Notate che in questo caso la convergenza non è altrettanto ra¬ 
pida che con il metodo di Simpson. 


2 

0.731370 

3 

0.747180 

4 

0.742984 

6 

0.746834 

8 

0.745866 

10 

0.746824 

16 

0.746585 

15 

0.746824 

area 

= 0.746824 




Figura 9.16 — Integrazione di e * ! con il metodo di Romberg. 


Terza esecuzione del programma di Romberg 
Una funzione periodica 

Torniamo all'Integrale 

4n 

sin 2 x dx 
o 

Se tentiamo di risolvere questa equazione con il metodo di Romberg, otterremo 
un risultato nullo per le prime due approssimazioni. Se però abbiamo l’accortezza di 
usare una tolleranza relativa invece che assoluta troveremo la soluzione corretta 
dopo un certo numero di iterazioni. 

Fate una copia del programma di Romberg, e fate le seguenti modifiche. Aggiun¬ 
gete l’istruzione 

PI = 3.141593; 



nella sezione CONST all’inizio del programma; modificate la funzione FX 

BEGIN 

FX : = SQR(SIN(X)) 

END; 


e la prima e la seconda linea del programma principale: 

LOWER ; = 0.0; 

UPPER : = 4.0 * PI; 
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Eseguite il programma e confrontate i risultati con la Figura 9.17. 

Infine, nel prossimo paragrafo amplieremo il programma di integrazione di Rom- 
berg per trattare una funzione che tende all’infinito in uno degli estremi dell’interval¬ 
lo di integrazione. Per risolvere questo problema useremo una tecnica di aggiusta¬ 
mento dell’ampiezza delle sezioni man mano che si avvicinano a questo estremo fi¬ 
no ad arrivare a un valore sufficientemente preciso dell'area. 


FUNZIONI CHE TENDONO ALL’INFINITO 

AD UN ESTREMO DELL’INTERVALLO DI INTEGRAZIONE 


In tutti i metodi usati finora abbiamo usato sezioni di ampiezza uguale in tutto l'in¬ 
tervallo. È evidente che la convergenza è più difficile, ed è quindi necessaria una 
suddivisione più fitta, quando la funzione ha una tangente molto grande, mentre è 
sufficiente una suddivisione meno fitta quando la tangente è piccola. Inoltre una fun¬ 
zione può essere infinita ad un estremo pur avendo area finita in quell'intervallo. 

Consideriamo per esempio l'integrale dell’inverso della radice quadrata di x nel¬ 
l'intervallo 0, 1: 

dx 

VT - 

Il valore esatto dell’integrale, calcolato con integrazione diretta, è 2.0. 

Se tentiamo di calcolare questo integrale con uno dei programmi precedenti, a- 
vremo subito un problema: il valore di f (a) all’estremo sinistro dell'Intervallo di inte¬ 
grazione è infinito, e quindi dobbiamo scegliere un altro estremo inferiore per l'inter¬ 
vallo. Se scegliamo IO -11 ci vorrà molto tempo per ottenere la convergenza, ma se 
scegliamo un valore più grande, come 0.01, il risultato non sarà abbastanza preciso. 


/ 


PROGRAMMA PASCAL: SEZIONI DI AMPIEZZA VARIABILE 
PER UNA FUNZIONE INFINITA 


Un metodo per risolvere questo problema consiste nell'iniziare l’integrazione da 
un valore un po’ più grande di zero, ad esempio 0.1. L'integrale viene quindi calcola¬ 
to tra 0.1 e 1.0. 
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2 9.64326e-12 
4 8.08070e-12 
8 6.28319 
16 6.28319 
32 6.28319 

area = 6.28633 


3 8.57179e-12 
6 7.49238e-12 
10 9.07793 
15 6.08755 
21 6.28633 


Figura 9.17 — Integrazione di sin 2 x con il metodo di Romberg. 


Per verificare la bontà di questa scelta, calcoliamo poi l’area di una regione a sini¬ 
stra, tra 0.01 e 0.1; se questa è significativa dobbiamo aggiungerla alla precedente. 
Poi calcoliamo l'area della regione compresa tra 0.001 e 0.01, e cosi via, avvicinan¬ 
doci sempre più allo zero, e valutando ogni volta il valore della nuova area. Il pro¬ 
gramma della Figura 9.18 usa questo approccio con il metodo di Romberg. 


Esecuzione del programma 

Scrivete il programma ed eseguitelo; è simile al precedente e quindi vi conviene 
modificare una copia della Figura 9.14. 


PROGRAM ROMB3(OUTPUT); 

(* integrazione per mezzo del metodo di Romberg *) 
{* 9 Gen 81 *) 

CONST 

TOL = 1.0E-5; 

VAR 

DONE : BOOLEAN; 

SUMT, SUM, UPPER, LOWER : REAL; 


Figura 9.18 — Integrazione con il metodo di Romberg con sezioni di ampiezza va¬ 
riabile. 
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FUNCTION FX(X : REAL) : REAL; 

(* dichiara f(x) = 1/sqrt(x) *) 

(* si badi ad x = 0 *) 

BEGIN 

FX := 1.0/SQRT(X) 

END; 

PROCEDURE ROMB(LOWER, UPPER, TOL : REAL; 

VAR ANS : REAL); 

(* integrazione numerica con metodo di Romberg *) 

VAR 

NX : ARRAY[1.. 16] OF INTEGER; 

T : ARRAY[1..136] OF REAL; 

DONE, ERROR : BOOLEAN; 

PIECES, NT,I, II, N, NN, 

L, NTRA, K, M, J : INTEGER; 

DELTA _X, C, SUM, FOTOM, X : REAL; 

BEGIN 

DONE : = FALSE; 

ERROR : = FALSE; 

PIECES := 1; 

NX[1]:= 1; 

DELTA_X := (UPPER - LOWER)/PIECES; 

C := (FX(LOWER) + FX(UPPER)) * 0.5; 

T[l] := DELTA_X * C; 

N:= 1; 

NN := 2; 

SUM := C; 

Figura 9.18 — Integrazione con il metodo di Romberg con sezioni di ampiezza va¬ 
riabile (segue). 
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REPEAT 

N := N + 1; 

FOTOM : = 4.0; 

NX[N] := NN; 

PIECES : = PIECES * 2; 

L : = PIECES - 1 ; 

DELTA_X := (UPPER - LOWER)/PIECES; 

(* calcola la somma trapezoidale per 2T(n — 1) + 1 punti *) 

FORII := 1 TO(L + l)DIV2DO 

BEGIN 

I := Il * 2 - 1; 

X := LOWER + I * DELTA _X; 

SUM := SUM + FX(X) 

END; 

T[NN] := DELTA _X * SUM; 

NTRA : = NX[N —1]; 

K : = N - 1 ; 

(* calcola la n-sima riga della matrice T *) 

FOR M : = 1 TOKDO 
BEGIN 

J : = NN + M; 

NT := NX[N —1] + M - 1; 

T[J] := (FOTOM*T[J —1] - T[NT])/(FOTOM - 1.0); 

FOTOM := FOTOM * 4.0 

END; 

IF N > 4 THEN 
BEGIN 

IF T[NN + 1] <> 0.0 THEN 

IF (ABS(T[NTRA + 1] - T[NN+ !])<= ABS(T[NN + 1] * TOL)) 
OR (ABS(T[NN — 1 ] - T[J])<= ABS(T[J] * TOL)) THEN 


Figura 9.18 — Integrazione con il metodo di Romberg con sezioni di ampiezza va¬ 
riabile (segue). 


279 



DONE : = TRUE 

ELSE IFN> 15THEN 
BEGIN 

DONE := TRUE; 
ERROR := TRUE 

END 

END; (* IFn>4 *) 

NN:= J + 1 
UNTIL DONE; 

ANS := T[J] 

END (* romberg *); 


BEGIN (* programma principale *) 
LOWER := 0.1; 

UPPER := 1.0; 

WRITELN; 

SUAAT := 0.0; 

WRITELN(' nuova area totale estremi', 
'inferiore superiore'); 

REPEAT 

ROAAB(LOWER, UPPER, TOL, SUM); 
UPPER := LOWER; 

LOWER := 0.1 * UPPER; 

SUMT : = SUAAT + SUM; 
WRITELN(SUM :9:6/ SUMT :9:5, 

' LOWER, ' UPPER) 

UNTIL ABS(SUM) < TOL 
END. 


Figura 9.18 — Integrazione con il metodo di Romberg con sezioni di ampiezza va¬ 
riabile (segue). 
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L’istruzione WRITELN della procedura ROMB è stata eliminata, in modo da otte¬ 
nere solo la stampa del valore finale di ogni area. Il programma principale chiama ri¬ 
petutamente la procedura ROMB fornendo limiti sempre più vicini allo zero. Quando 
la nuova area è minore della tolleranza il procedimento ha termine. I risultati si pre¬ 
sentano come in Figura 9.19. 


nuova area 

area totale 

1.36754 

1.36754 

0.432456 

1 .80000 

0.136754 

1.93675 

0.043246 

1.98000 

0.013675 

1.99368 

0.004325 

1.99800 

0.001368 

1.99937 

0.000432 

1 .99980 

0.000137 

1.99994 

0.000043 

1 .99998 

0.000014 

1 .99999 

0.000004 

2.00000 


estremi inferiore superiore 
1.00000e-2 1.00000e-1 

1.00000e-3 1.00000e-2 

1.00000e-4 1.00000e-3 

1.00000e-5 1.OOOOOe-4 

1.00000e-6 1.00000e-5 

1.OOOOOe-7 1.OOOOOe-6 

1.OOOOOe-8 1.OOOOOe-7 

1.00000e-9 1.OOOOOe-8 

1.00000e-10 1.00000e-9 

1.OOOOOe-11 1.00000e-10 

1.00000e-12 1 .00000e-11 

1.00000e-13 1.00000e-12 


Figura 9.19 — Integrazione di 1/ Vx vicino allo zero. 


Se non si eliminano le stampe intermedie nella procedura ROMB, si può vedere 
che ogni regione è suddivisa in 64 sezioni; l'ampiezza di ogni regione è un decimo di 
quella immediatamente a destra, e l'estremo sinistro finale è IO -13 . Se si calcolasse 
l’integrale tra IO -13 e 1.0 in una volta sola, sarebbe necessario più di un milione di 
milioni di sezioni di uguale ampiezza, e questo richiederebbe un tempo enorme per 
ottenere il risultato esatto. 


SOMMARIO 

In questo capitolo abbiamo sviluppato e confrontato tre diversi programmi di inte¬ 
grazione numerica. I primi due — la regola trapezoidale e il metodo di Simpson — u- 
sano la tecnica di correzione finale per rendere più preciso il valore dell'ultima ap¬ 
prossimazione dell’area sottesa dalla curva. Il terzo metodo, più sofisticato — il me¬ 
todo di Romberg — usa una matrice di interpolazioni progressive, e non richiede la 
correzione dell'errore. Abbiamo provato questi metodi su diverse funzioni, e abbia- 
mo-usato una versione perfezionata del metodo di Romberg per calcolare l’area sot¬ 
tesa dalla curva di una funzione infinita. 

Tutte le integrazioni, tranne l'ultima, erano eseguite su funzioni analitiche con 
suddivisioni di uguale ampiezza. Tecniche diverse sono necessarie per insiemi di¬ 
screti di dati; un approccio è quello di interpolare i dati con una funzione polinomia¬ 
le, usando una delle tecniche viste nei capitoli precedenti, e integrare poi questa 
funzione. 
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CAPITOLO 10 


EQUAZIONI NON LINEARI 
DI INTERPOLAZIONE DI CURVE 


INTRODUZIONE 

Nei Capitoli 5 e 7 abbiamo sviluppato programmi per determinare i coefficienti di 
diverse equazioni di interpolazione di curve. Avendo scelto funzioni di approssima¬ 
zione con coefficienti lineari, le equazioni risultanti erano lineari, e quindi facilmente 
risolte. Può però essere necessario, talvolta, scegliere funzioni di approssimazione 
con coefficienti non lineari, e in questo caso il calcolo dei coefficienti può essere no¬ 
tevolmente più complesso. 

In questo capitolo studieremo due diverse tecniche di interpolazione non lineare 
di curve. In uno di questi metodi, renderemo dapprima lineare la funzione di appros¬ 
simazione e troveremo la soluzione nella forma lineare; con questo metodo esegui¬ 
remo l’interpolazione di due insiemi di dati. Prima eseguiremo l'interpolazione della 
forma linearizzata di quella che si chiama funzione razionale, per un insieme di dati 
che rappresentano il fattore di Clausing. Poi interpoleremo una funzione esponen¬ 
ziale razionalizzata per un insieme di dati che rappresenta la diffusione dello zinco 
nel rame in un certo intervallo di temperature. 

Il secondo approccio all’interpolazione non lineare sarà più diretto. Vedremo che 
non esiste una tecnica generale per trattare funzioni di approssimazione con coeffi¬ 
cienti non lineari, e cercheremo un metodo specifico per equazioni esponenziali. 
Questo metodo comporta l’eliminazione di uno dei coefficienti e la risoluzione delle 
equazioni risultanti col metodo di' Newton, che abbiamo studiato nel Capitolo 8. 

Cominciamo con il primo esempio del metodo di linearizzazione. 


LINEARIZZAZIONE DELLA FUNZIONE RAZIONALE 

Una funzione di approssimazione non lineare, comunemente usata, è la funzione 
razionale, ottenuta dal rapporto tra due polinomi: 
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A, + A,x + A s x 2 ... 

1 + A 2 x + A 4 x 2 + AtX 3 ... 


y = 


In questa espressione x è la variabile indipendente, y la variabile dipendente, e 
A,, A 2 , etc. sono i coefficienti. 

La funzione razionale non è lineare, ma può essere linearizzata con le seguenti 0 - 
perazioni: si moltiplicano entrambi i membri delle equazioni per il denominatore, e si 
ottiene: 


y(1 + A 2 x + A 4 x 2 + A ^ 3 ...) = A, + A 3 x + A 5 x 2 ... 

I termini dell'equazione precedente possono essere manipolati in modo da otte¬ 
nere: 


Y = A, - Ajxy + A 3 x - Aj. 2 y + A5X 2 - A^y ... 


Alcuni dei termini a destra contengono la variabile dipendente y insieme a quella 
indipendente x. Ricordiamo che sia x che y sono matrici di valori noti, mentre le in¬ 
cognite da determinare sono i coefficienti A,, A 2 , ...A^. Tutti questi coefficienti sono 
lineari, e quindi possono essere determinati con i metodi visti nei Capitoli 5 e 7. 


PROGRAMMA PASCAL: IL FATTORE DI CLAUSING 
INTERPOLATO CON LA FUNZIONE RAZIONALE 


La Figura 10.1 contiene un programma per l’interpolazione col metodo dei minimi 
quadrati della forma linearizzata della funzione razionale. Il programma si può rica¬ 
vare dalla Figura 7.3 del Capitolo 7. 

I dati di questo programma rappresentano il fattore di Clausing come funzione del 
rapporto lunghezza/raggio (L/r) per fori cilindrici. Quando delle molecole con gran¬ 
de "libero cammino medio” si diffondo attraverso un foro cilindrico, alcune di esse 
urtano le pareti del foro e rimbalzano nella direzione opposta; le altre proseguono fi¬ 
no all'altro capo del foro. Il fattore di Clausing dà la frazione delle molecole che en¬ 
trando da un lato del foro cilindrico escono dall'altro lato, e può avere un valore 
compreso tra 0 e 1; naturalmente questo valore diminuisce aM’aumentare della lun¬ 
ghezza del foro e al diminuire del raggio, perciò nella formula di calcolo diretto del 
fattore di Clausing compare il rapporto L/r. 
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PROGRAM FITPOL(OUTPUT); 

(* 30 Die 80 *) 

(# Programma pascal che esegue una *) 

(* interpolazione lineare coi minimi quadrati *) 

(# al rapporto di 2 polinomi *) 

(* È necessaria la procedura separata GAUSSJ #) 

CONST 

MAXR = 20; (* punti *) 

AAAXC = 4; (* termini polinomiali *) 

TYPE 

ARY = ARRAY[1..MAXR] OF REAL; 

ARYS = ARRAY [1 . .MAXC] OF REAL; 

ARY2 = ARRAY[1 ..MAXR, 1.. AAAXC] OF REAL; 

ARY2S = ARRAY[1 ..MAXC, 1.. AAAXC] OF REAL; 

VAR 

X, Y, Y _ CALC, 

RESID : ARY; 

COEF, SIG : ARYS; 

NROW, NCOL : INTEGER; 

CORREL_COEF : REAL; 

PROCEDURE GET_DATA 

(VAR X : ARY; (* variabile indipendente *) 

VAR Y : ARY; (* variabile dipendente *) 

VAR NROW: INTEGER); (* lunghezza dei vettori *) 

VAR 

I : INTEGER; 


Figura 10.1 — Il fattore di Clausing interpolato con il rapporto tra due polinomi. 


285 






BEGIN 

(# Fattori di Clausing *) 

NROW := 10; 

X[l] ;= 0.1; Y[l] := 0.9524; 

X[2] := 0.2; Y[2] := 0.9092; 

X[3] := 0.5; Y[3] := 0.8013; 

X[4] := 1.0; Y[4] := 0.6720; 

X[5] := 1.2; Y[5] := 0.6322; 

X[6] := 1.5; Y[6] := 0.5815; 

X[7] := 2.0; Y[7] := 0.5142; 

X[8] := 3.0; Y[8] := 0.4201; 

X[9] := 4.0; Y[9] := 0.3566; 

X[10] := 6.0; Y[10] := 0.2755 
END (* procedure get_data *); 

PROCEDURE WRITE_DATA; 

(* stampa i risultati #) 

VAR 

I: INTEGER; 

BEGIN 

WRITELN; 

WRITELN; 

WRITELN(' I X Y Y CALC RESID'); 

FOR I := 1 TO NROW DO 

WRITELN (1:3, X[l]: 8: 1,Y[I]:9: 4, 

Y_CALC[I]: 9: 4, RESID[I]: 9: 4); 

WRITELN; 

WRITELN ('coefficienti errori'); 

WRITELN(COEF[l]:8:5, ' SIG[1], 'Termine costante'); 


Figura 10 .7 — 11 fattore di Clausing interpolato con il rapporto tra due polinomi (se¬ 
gue). 
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FOR I : = 2 TO NCOL DO 
WRITELN 

(COEF[l]:8:5, ' ', SIG[I]); (* altri termini *) 

WRITELN; 

WRITELN('II coefficiente di correlazione è', CORREI_COEF: 8: 5) 

END (* wrife_data *); 

(* PROCEDURE square(x : ary2; 

y : ary; 

VAR a : ary2s; 

VAR g : arys; 
nrow,ncol : integer); 

extern; *) 

(*$F SQUARE.PAS *) 

(* PROCEDURE gaussj 
(VAR b : ary2s; 

y : arys; 

VAR coef : arys; 

ncol : integer; 

VAR error : boolean); 
extern; *) 

(*$F GAUSSJ.PAS *) 

PROCEDURE LINFIT(X, (* variabile indipendente *) 

Y : ARY; (* variabile dipendente *) 

VAR Y_CALC: ARY; (* var. dipendente calcolata *) 

VAR RESID : ARY; (* matrice dei testi *) 

VAR COEF : ARYS; (* coefficienti *) 

VAR SIG : ARYS; (* errori nei coefficienti *) 

NROW : INTEGER; (* lunghezza delle matrici #) 


Figura 10 .7 — 11 fattore di Clausing interpolato con il rapporto tra due polinomi (se¬ 
gue). 
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VAR NCOL : INTEGER); (* numero di termini *) 

(* interpolazione coi minimi quadrati di *) 

(* nrow coppie di punti x e y *) 

(# Sono necessarie le procedure separate: 

SQUARE — formazione della matrice dei coefficienti 
GAUSSJ — eliminazione di Gauss-Jordan #) 

VAR 

XAAATR : ARY2; (# matrice dei dati *) 

A : ARY2S; (* matrice dei coefficienti *) 

G : ARYS; (* vettore delle costanti *) 

ERROR : BOOLEAN; 

I, J, NM: INTEGER; 

XI, Yl, YC, SRS, SEE, 

SUAA_Y, SUAA_Y2: REAL; 

BEGIN (* procedure linfit *) 

NCOL : = 4 (* numero di termini *) 

FOR I : = 1 TO NROW DO 

BEGIN (* carica la matrice X *) 

XI := X[l]; 

Yl := Y[l]; 

XAAATR[I, 1] := 1.0 (* prima colonna *); 
XAAATR[I, 2] := -XI * Yl; 

XAAATR [I, 3] := XI; 

XAAATR[I, 4] := -SQR(XI) * Yl 

END; 

SQUARE(XAAATR, Y, A, G, NROW, NCOL); 

GAUSSJ(A, G, COEF, NCOL, ERROR); 


Figura 10.1 — Il fattore di Clausing interpolato con il rapporto tra due polinomi (se¬ 
gue). 
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SUM_Y := 0.0; 

SUM_Y2 : = 0.0; 

SRS : = 0.0; 

FORI := 1 TONROWDO 
BEGIN 

XI := X[l]; 

VI := Y[l]; 

YC := COEF[l] 

+ ( —COEF[2] * Yl + COEF[3] - COEF[4] * XI * Yl) * XI; 
Y_CALC[I] := YC; 

RESID[I] := YC - Yl; 

SRS := SRS + SQR(RESID[I]); 

SUAA_Y : = SUAA_Y + Yl; 

SUM_Y2 := SUM_Y2 + Yl * Yl 

END; 

CORREL_COEF := SQRT(1.0 - SRS/ 

(SUM_Y2 - SQR(SUM_Y)/NROW)); 

IF NROW = NCOLTHEN NM := 1 
ELSE NM := NROW - NCOL; 

SEE := SQRT(SRS/NM); 

FOR I : = 1 TO NCOL DO (* errori nella soluzione *) 

SIG[I] ;= SEE * SQRT(A[I, I]) 

END (* linfit *); 


BEGIN (* programma principale *) 

GET_DATA(X, Y, NROW); 

LINFIT(X, Y, Y_CALC, RESID, COEF, SIG, NROW, NCOL); 
WRITE_DATA 

END. 


Figura 10.1 — Il fattore di Clausing interpolato con il rapporto tra due polinomi (se¬ 
gue). 
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Esecuzione del programma 

Scrivete il programma ed eseguitelo. La matrice viene calcolata per quattro ter¬ 
mini, corrispondenti a un numeratore del primo ordine e a un denominatore del se¬ 
condo. Termini addizionali possono essere facilmente aggiunti alla funzione di ap¬ 
prossimazione. Le variabili MAXC e NCOL devono essere modificate per contenere 
il numero effettivo dei termini; inoltre devono essere aggiunte le espressioni 

MATR II,5): = MATR [1,3] * XI; 

MATR [1,6]: = MATR [1,4] * XI; 

nella procedura LINFIT, se si vogliono aggiungere termini addizionali. I risultati mo¬ 
strati in Figura 10.2 corrispondono all’equazione: 

1.0017 + 0.237x 
y 1 + 0.7522x + 0.0912x 2 

Se i dati sono interpolati con una funzione polinomiale regolare invece che con la 
funzione razionale, l’interpolazione non sarà altrettanto buona (a parità del numero 
di coefficienti nella funzione di approssimazione). 

Nel prossimo esempio del metodo di linearizzazione, studieremo un'equazione e- 
sponenziale. Più avanti, in questo capitolo, interpoleremo la stessa equazione con 
un altro approccio più diretto. 


I 

X 

Y 

Y C ALC 

RESID 

1 

0.1 

0.9524 

0.9529 

0.0005 

2 

0.2 

0.9092 

0.9090 

-0.0002 

3 

0.5 

0.8013 

0.8006 

-0.0007 

4 

1.0 

0.6720 

0.6719 

-0.0001 

5 

1.2 

0.6322 

0.6324 

0.0002 

6 

1.5 

0.5815 

0.5818 

0.0003 

7 

2.0 

0.5142 

0.5146 

0.0004 

8 

3.0 

0.4201 

0.4199 

-0.0002 

9 

4.0 

0.3566 

0.3563 

-0.0003 

10 

6.0 

0.2755 

0.2756 

0.0001 


coefficienti errori 


1.00169 
0.75220 
0.23704 
0.09124 


4.60364e-4 Termine costante 
1.37135e-2 
1.22040e-2 
5.14729e-3 


Il coefficiente di correlazione è 1.00000 


Figura 10.2 — Il fattore di Clausing in funzione di L/r interpolato con una funzione 
razionale. 


290 




LINEARIZZAZIONE DELL’EQUAZIONE ESPONENZIALE 


Una delle più comuni equazioni non lineari ha la forma: 
y = Ae Bx 


dove x è la variabile indipendente, y la variabile dipendente, A e B i coefficienti; que¬ 
sta equazione si incontra frequentemente in problemi scientifici e tecnici in quanto 
rappresenta la soluzione di un’equazione differenziale del primo ordine. 

L’equazione precedente può essere linearizzata calcolando il logaritmo di en¬ 
trambi i membri; si ottiene 

In y = In A + Bx 


In questa forma, la variabile dipendente è In y, e i coefficienti da determinare di 
ventano In A e B; poiché sono lineari, possiamo ottenere un’interpolazione con il 
metodo dei minimi quadrati con la procedura LINFIT del Capitolo 5. 


PROGRAMMA PASCAL: 

UN’INTERPOLAZIONE CON LA CURVA ESPONENZIALE 
PER LA DIFFUSIONE DELLO ZINCO NEL RAME 


In Figura 10.3 c’è un programma per l’interpolazione con i minimi quadrati con 
l'equazione esponenziale linearizzata; il programma si può ottenere dalla Figura 7.3 
del Capitolo 7. Il valore di NCOL è diventato 2, ed è stato eliminato il calcolo dell’er¬ 
rore standard. I dati della procedura GET_DATA rappresentano la diffusione dello 
zinco nel rame in un intervallo di temperatura da 600°C a 900°C. L'equazione della 
diffusione è: 


D = D 0 e-Q' ,RT 


dove D è il coefficiente di diffusione in cm 2 /sec, D 0 è la costante di diffusione nella 
stessa unità di misura, Q l’energia di attivazione in cal/mole, R la costante dei gas e 
T la temperatura in gradi Kelvin. La variabile indipendente x è l’inverso della tempe¬ 
ratura in gradi Kelvin; la variabile dipendente y è il logaritmo del coefficiente di diffu¬ 
sione. 
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PROGRAM DIFFUS(OUTPUT); 

(* 30 Die 80 *) 

(* Programma pascal che esegue una *) 

(* interpolazione coi minimi quadrati *) 

(# per la diffusione dello Zn nel Cu *) 

(* È necessaria la procedura esterna GAUSSJ *) 

CONST 

MAXR = 20 (* punti *); 

MAXC = 4 (* termini polinomiali *); 

R = 1.987 (# costante del gas *); 

TYPE 

ARY = ARRAY[1 ..AAAXR] OF REAL; 

ARYS = ARRAY[1. .MAXC] OF REAL; 

ARY2 = ARRAY[1 ..MAXR, 1 ..MAXC] OF REAI; 

ARY2S = ARRAY[1 ..MAXC, 1..AAAXC] OF REAL; 

VAR 

X, Y, Y_CALC, T, D, 

RESID : ARY; 

COEF, SIG : ARYS; 

NROW, NCOL : INTEGER; 

CORREL_COEF, SRS : REAL; 

PROCEDURE GET_DATA(VAR X, Y, T, D : ARY; 

VAR NROW : INTEGER); 

(* riceve i valori per nrow e le matrici t, d *) 

VAR 

I :INTEGER; 

BEGIN 

NROW := 7; 

T[1 ] := 600.0; D[l] := 1.4E-12; 

T[2] := 650.0; D[2] := 5.5E-12; 

T[3] := 700.0; D[3] := 1.8E-11; 

T[4] := 750.0; D[4] := 6.1E-11; 

T[5] := 800.0; D[5] := 1.6E-10; 

Figura 10.3 — Un'interpolazione con i minimi quadrati per un'equazione esponen¬ 
ziale linearizzata. 
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T[6] := 850.0; D[6] := 4.4E-10; 

T[7] := 900.0; D[7] := 1.2E-9; 

FOR I : = 1 TO NROW DO 

BEGIN 

X[l] := 1.0/(T[I] + 273.0); 

Y[l] := LN(D[I]) 

END 

END (* procedure get_data *); 

PROCEDURE WRITE_DATA; 

(* stampa i risultati *) 

VAR 

I: INTEGER; 

BEGIN 

WRITELN; 

WRITELN; 

WRITELN(' I TC D 
' D Cole'); 

FOR I : = 1 TO NROW DO 
WRITELN(I:3, T[l]:8:0, D[l], ", 

Y_CALC[I]); 

WRITELN; 

WRITELN ( ' coefficienti ' ) ; 

WRITELN(COEF[l], ' Termine costante'); 

FOR I : — 2 TO NCOL DO 
WRITELN 

(COEFfl]); (* altri termini *) 

WRITELN; 

WRITELN(' DO = (EXP(COEF[l ])) :7:2,' cm sq/sec.'); 

WRITELN('Q = ( —R * COEF[2]/l000.0) :8:2, 

' kcal/mole'); 

WRITELN; WRITELN(' SRS = SRS :7:3) 

END (* write_data *); 

Figura 10.3 — Un’interpolazione con i minimi quadrati per un'equazione esponen¬ 
ziale linearizzata (segue). 
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(* PROCEDURE square(x : ary2; 

y: ary; 

VAR a : ary2s; 

VAR g : arys; 
nrow,ncol : integer); 

extern; * ) 

(*$F SQUARE.PAS *) 

(★ PROCEDURE gaussj 
(VAR b : ary2s; 

y : arys; 

VAR coef : arys; 

ncol : integer; 

VAR error : boolean); 
extern; *) 

(*$F GAUSSJ. PAS *) 

PROCEDURE LINFIT(X, (* variabile indipendente *) 

Y : ARY; (# variabile dipendente *) 

VAR Y_CALC: ARY; (* var. dipendente calcolata *) 
VAR RESID : ARY; (* matrice dei resti «) 

VAR COEF :ARYS;(* coefficienti *) 

VAR SIG : ARYS; (# errori nei coefficienti *) 

NROW : INTEGER; (* lunghezza delle matrici #) 
VAR NCOL : INTEGER); (* numero di termini *) 

(* interpolazione coi minimi quadrati di *) 

(# nrow coppie di punti x, y *) 

(* Sono necessarie le procedure separate: 

SQUARE — formazione della matrice dei coefficienti 
GAUSSJ — eliminazione di Gauss-Jordan *) 


Figura 10.3 — Un’interpolazione con i minimi quadrati per un'equazione esponen¬ 
ziale linearizzata (segue). 
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VAR 

XMATR : ARY2 (a matrice dei dati a); 

A : ARY2S (a matrice dei coefficienti a); 

G : ARYS (a vettore delle costanti a); 

ERROR : BOOLEAN; 

I, J, NM: INTEGER; 

SEE, Al : REAL; 

BEGIN (* procedure linfit *) 

NCOL : = 2 (a numero di termini a); 

FORI := 1 TO NROWDO 

BEGIN (a carica la matrice X a) 

XMATR[I, 1] := 1.0 (* prima colonna a) 

XMATR[I, 2] := X[l] (a seconda colonna a) 

END; 

SQUARE(XMATR, Y, A, G, NROW, NCOL); 

GAUSS.)(A, G, COEF, NCOL, ERROR); 

SRS ;= 0.0; 

Al := EXP(COEF[l ]); 

FOR I : = 1 TO NROW DO 
BEGIN 

Y_CALC[I] := Al * EXP(COEF[2] * X[l]); 

IF Y[l] <> 0.0 THEN RESID[I] : = Y_CALC[I]/Y[I] - 1.0 
ELSE RESID[I] := Y[I]/Y_CALC[I] - 1.0; 

SRS := SRS + SQR(RESID[I]) 

END 

END (* linfit *); 

BEGIN (a programma principale a) 

GET_DATA(X, Y, T, D, NROW); 

LINFIT(X, Y, Y_CALC, RESID, COEF, SIG, NROW, NCOL); 
WRITE_DATA 

END. 

Figura 10.3 — Un’interpolazione con i minimi quadrati per un’equazione esponen¬ 
ziale linearizzata (segue). 
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Esecuzione del programma 

Compilate il programma, eseguitelo e confrontate i risultati con la Figura 10.4 
La costante di diffusione (DO) è l’esponenziale del primo coefficiente: 

DO : = EXP(COEF [1]) 


L’energia di attivazione Q si ottiene dal prodotto del secondo coefficiente (COEF 
[2 ]) per la costante dei gas, con il segno invertito: 

Q : = -R*COEF[2] 


In questo esempio, viene stampata la somma dei quadrati dei residui, SRS, inve¬ 
ce dell'errore standard sui coefficienti, in quanto la trasformazione non lineare della 
funzione di approssimazione rende non significativi questi “sigma”. Il calcolo di que¬ 
sta forma di SRS è discusso più esaurientemente nel prossimo paragrafo, dove svi¬ 
lupperemo un secondo approccio di interpolazione non lineare. 


I 

T C 

D 

D Cale 

1 

600. 

1,40000e-12 

1.31283e-12 

2 

650. 

5.50000e-12 

5.43316e-12 

3 

700. 

1 .80000e-11 

1 .9431 1e-11 

4 

750. 

6.10000e-11 

6.13542e-11 

5 

800. 

1 .60000e-10 

1.74041e-10 

6 

850. 

4.40000e-10 

4.49924e-10 

7 

900. 

1.20000e-9 

1.07266e-9 

Coefficienti 



-1 . 

13952 

Termine costante 

-2. 

28895e4 



DO 

= 0 . 

32 cm sq/sec. 


Q 

= 45. 

48 kcal/mole 


SRS = 7.000 



Figura 10.4 — La diffusione dello zinco nel rame (interpolazione lineare). 


SOLUZIONE DIRETTA DELL’EQUAZIONE ESPONENZIALE 

Nel paragrafo precedente, l'equazione esponenziale 
y = AeB* 
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è stata linearizzata con il logaritmo: 


In y = In A + Bx 

Poi è stata fatta un'interpolazione con i minimi quadrati di questa forma lineariz¬ 
zata. Ma i coefficienti che forniscono la minima somma dei quadrati dei residui 
(SRS) per la forma linearizzata, non la forniscono per l’equazione originale non li¬ 
neare. Dobbiamo quindi considerare una soluzione diretta, con i minimi quadrati, 
dell'equazione non lineare. 

In questo paragrafo ricaveremo le equazioni di interpolazione relative all'equazio¬ 
ne originale non linearizzata. Se affrontiamo la soluzione dell’equazione non lineare 
nello stesso modo di quella lineare, otterremo il valore di SRS per la funzione di ap¬ 
prossimazione. Mettendo poi a zero le derivate di SRS rispetto ad ogni coefficiente, 
si ottiene un'equazione per ogni incognita, che però, essendo non lineare, non può 
in genere essere risolta. 

Non esiste un approccio universale per la soluzione di equazioni non lineari, ma ci 
sono diverse tecniche per i diversi casi. Nel caso della funzione esponenziale, la so¬ 
luzione è relativamente facile. Seguiremo il solito algoritmo di interpolazione di una 
curva fino al calcolo delle derivate di SRS. Poi studieremo il modo di eliminare uno 
dei coefficienti dall’equazione, e risolveremo la funzione risultante con il metodo di 
Newton. 


Calcolo di SRS 

I residui per l'equazione 
y — Ae B * 

possono essere definiti come 
r = Ae B *-y 

D’altra parte, se i dati sono tutti calcolati con lo stesso grado di precisione relati¬ 
va, indipendentemente dalla loro grandezza, è più significativo usare un residuo re¬ 
lativo 


r = (Ae8* - y) I y 


o 


r = (Ae B * I y) - 1 
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I residui in questa nuova forma vengono elevati al quadrato e poi sommati, per ot¬ 
tenere SRS. Vengono poi calcolate le derivate di SRS rispetto ad A e B, e le equazio¬ 
ni risultanti sono messe a zero. Questo approccio è lo stesso di prima; ci sono due 
equazioni e due incognite. 

AZ(e 28x / y 2 ) - Z(e 8x / y) = 0 
e 

AZ(xe 28x / y 2 ) - Z(xe 8x / y) = 0 

Questa volta, però, le equazioni risultanti non sono lineari, e non possono quindi 
essere risolte con la procedura LINFIT. 


Eliminazione del coefficiente A 

Fortunatamente in questo caso il coefficiente A è lineare, e può essere quindi se¬ 
parato; con opportune manipolazioni, la prima delle due equazioni dà: 

A = Z(e 8 * / y) / Z(e 2 s* / y 2 ) 

Sostituendo questa espressione di A nella seconda equazione si ottiene: 

Z(e 8x / y) Z(xe 28x / y 2 ) 

- Z(e 28x / y 2 ) Z(xe 8x / y) = 0 = f{B) 

Avendo eliminato A, questa equazione è funzione solo di B. Nel Capitolo 8 abbia¬ 
mo sviluppato un programma per la risoluzione di equazioni non lineari con il meto¬ 
do di Newton; possiamo utilizzarlo qui. 

Soluzione con il metodo di Newton 

Adesso calcoliamo la derivata dell’equazione precedente rispetto a B; otteniamo 

f'(B) = 2Z (e 8x / y) Z(x 2 e 28x / y 2 ) 

- Z(xe 28x / y 2 ) Z(xe 8x / y) 

- Z(e 28x / y 2 ) Z(x 2 e 8x / y) 
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Prima di proseguire, controlliamo che tutti i termini di f(B) e f’(B) siano omogenei; 
ogni termine di f(B) deve corrispondere a 


x 


y 3 


e ogni termine di f'(B) a 
x 2 

y 3 


PROGRAMMA PASCAL: 

INTERPOLAZIONE NON LINEARE DELLA CURVA ESPONENZIALE 


Il programma della Figura 10.5 si può usare per trovare un’interpolazione non li¬ 
neare con i minimi quadrati per l'equazione di diffusione: 


D = D 0 e~ Q/RT 


che abbiamo già visto. Poiché stiamo usando il metodo di Newton, abbiamo bisogno 
di una prima approssimazione per il valore di B; possiamo ottenerlo dall’equazione 
linearizzata, ma invece di fare una completa interpolazione lineare, possiamo sem¬ 
plicemente calcolare il valore di B dall'equazione 20 del Capitolo 5. In questo caso, 
y viene sostituito da In y. 

e = I[xln(y)] - I(x) Z[ln (y)/n] 

Zx 2 - (Zx) 2 / n 

Le istruzioni per questa prima approssimazione sono nella procedura NLIN; un 
approccio più complicato potrebbe consistere nel richiamare la procedura di Gauss 
Jordan (Figura 4.5) per la prima approssimazione. 


Esecuzione del programma 

Scrivete il programma ed eseguitelo; confrontate i risultati con la Figura 10.6. 
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PROGRAM NLIN3(OUTPUT); 

(* 23 Gen 81 *) 

(* Programma pascal che esegue una *) 

(* interpolazione non lineare coi minimi quadrati *) 
(* per la diffusione dello Zn nel Cu *) 

CONST 

AAAXR = 20 (* data points *); 

AAAXC = 4 (* termini polinomiali *); 

R = 1.987 (* costante del gas *); 

TYPE 

INDEX = 1.. AAAXR; 

ARY = ARRAY[INDEX] OF REAL; 

ARYS = ARRAY[1.. AAAXC] OF REAL; 

ARY2 = ARRAY[1..AAAXR, 1..AAAXC] OF REAL; 

VAR 

X, Y, Y_CALC, T, D, EX : ARY; 

COEF : ARYS (# vettore soluzione *); 

I, N : INTEGER; 

NROW, NCOL : INTEGER; 

DONE, ERROR : BOOLEAN; 

CORREL_COEF, A, B, X2, SRS : REAL; 

PROCEDURE GET_DATA(VAR X, Y : ARY; 

VAR N: INTEGER); 

(* riceve i valori per n e le matrici t, d *) 


I ; INTEGER; 

Figura 10.5 — Interpolazione con i minimi quadrati per una funzione esponenziale 
non linearizzata. 
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BEGIN 

N : = 7; 

T[1 ] : = 600.0; D[1] := 1.4E-12; 

T[2] := 650.0; D[2] := 5.5E-12; 

T[3] := 700.0; D[3] := 1.8E-11; 

T[4] ; = 750.0; D[4] : = 6.1 E-11 ; 

T[5] := 800.0; D[5] := 1.6E-10; 

T[6] := 850.0; D[6] := 4.4E-10; 

T[7] := 900.0; D[7] := 1.2E-9; 

FORI := 1 TONDO 
BEGIN 

X[l] := 1.0/(T[l] + 273); 

V[I]:=D[I] 

END 

END (* procedure get_dato *); 

PROCEDURE WRITE_DATA; 

(* stampa i risultati *) 

VAR 

I : INTEGER; 

BEGIN 

WRITELN; 

WRITELN(' I TC D 
' D Cale'); 

FOR I : = 1 TO N DO 

WRITELN(I:3, T[l]:8:0, D[l], 

' Y_CALC[I]); 

WRITELN; 

WRITELN ( 'Coefficienti'); 

WRITELN(COEF[l], ' Termine costante'); 

Figura 10.5 — Interpolazione con i minimi quadrati per una funzione esponenziale 
non linearizzata (segue). 
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FOR I : = 2TO NCOL DO 

WRITELN(COEF[l])(* altri termini *); 

WRITELN; 

WRITELNf DO = A:7:2,' cm sq/sec.'); 

WRITELNf Q = ', — R ★ B/1000 :8:2, ' kcal/mole'); 
WRITELN; WRITELN(' SRS = SRS :8:4) 

END (* write_data *); 

PROCEDURE FUNC(B : REAL; 

VAR FB, DFB : REAL); 

VAR 

I :INTEGER; 

SI, S2, S3, S4, S5, S6, 

EX1, EX2, XI, X2, Yl, Y2 : REAL; 


BEGIN 

SI 

II 

o 

b 

S2 

= 0.0; 

S3 

= 0.0; 

S4 

= 0.0; 

S5 

= 0.0; 

S6 

= 0.0; 


FOR l:= 1 TONDO 
BEGIN 

XI := X[l]; 

X2 := XI * XI; 

Yl:= Y[l]; 

Y2 := Yl * Yl; 

EX1 := EXP(B * XI); 

EX[I] := EX1; 

EX2 := EX1 * EX1 ; 

SI := SI + XI * EX2/Y2; 


Figura 10.5 — Interpolazione con i minimi quadrati per una funzione esponenziale 
non linearizzata (segue). 
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52 : = S2 + EX1/YI; 

53 := S3 + XI * EX1/YI; 

54 := S4 + EX2/Y2; 

55 : = S5 4- 2.0 * X2 * EX2/Y2; 

56 : = S6 + X2 * EX1/YI 
END; 

FB := SI * S2 - S3 * S4; 

DFB := S2 * S5 - SI * S3 - S4 * S6; 

A := S2/S4 
END (* fune *); 

PROCEDURE NEWTON 

(VAR X: REAL); 

(* 23 Gen 81 *) 

CONST 

TOL = 1.0E-6; 

AAAX = 20; 

VAR 

FX, DFX : REAL; 

DX, XI : REAL; 

I : INTEGER; 

BEGIN (* newton *) 

ERROR : = FALSE; 
l:=0; 

REPEAT 

I := I + 1; 

XI : = X; 

FUNC(X, FX, DFX); 

IF DFX = 0.0THEN 
BEGIN 

ERROR := TRUE; 

X : = 1.0; 

WRITELN ('ERRORE: pendenza zero') 

END 

Figura 10.5 — Interpolazione con i minimi quadrati per una funzione esponenziale 
non linearizzata (segue). 
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ELSE 


BEGIN 

DX : = FX/DFX; 

X : = XI - DX; 

END 
UNTIL 

ERROR OR 
(I > MAX) OR 

(ABS(DX)<= ABS(TOL * X)); 

IF I > MAX THEN 
BEGIN 

WRITELN ('ERRORE: non convergente in', 

MAX, 'cicli'); 

ERROR := TRUE 

END 

END (* newton *); 

PROCEDURE NLIN(X, Y : ARY; 

VAR Y_CALC : ARY; 

N : INTEGER); 

(* approssima l'equazione di diffusione attraverso 
n coppie di punti x e y *) 

VAR 

RESID : ARY; 

MATR : ARY2; 

I : INTEGER; 

XI, Yl, SUM_X, 

SUM_Y, SUM_Y2, Bl, 

SUM_XY, SUM_X2 : REAL; 

BEGIN (* nlin *) 

NCOL : = 2 (* due termini *); 

SUM_X := 0.0; 

SUM_Y := 0.0; 

SUM_XY := 0.0; 

Figura 10.5 — Interpolazione con i minimi quadrati per una funzione esponenziale 
non linearizzata (segue). 
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SUM_X2 := 0.0; 

FOR I := 1 TO N DO 
BEGIN 

XI := X[l]; 

Yl := LN(Y[I]); 

SUM_X : = SUM_X + XI; 

SUM_Y : = SUM_Y + Yl; 

SUM_Y2 := SUAA_Y2 + Yl * Yl; 

SUM_XY := SUM_XY + XI * Yl; 

SUM_X2 := SUAA_X2 + XI * XI 
END; 

B := (SUAA_XY - SUM_X * SUM_Y/N)/ 

(SUM_X2 - SQR(SUM_X)/N); 

NEWTON(B); 

COEF[l] := A; 

COEF[2] := B; 

SRS : = 0.0; 

FOR I : = 1 TO N DO 
BEGIN 

Y_CALC[I] := A * EX[I]; 

IF Y[l] <> 0.0THEN 

RESID[I] := Y_CALC[I]/Y[I] - 1:0 
ELSE RESID[I] := Y[I]/Y_CALC[I] - 1.0; 

SRS : = SRS + SQR(RESID[I]) 

END 

END (* nlin *); 

BEGIN (* programma principale *) 

GET_DATA (X, Y, N); * 

NLIN(X, Y, Y_CALC, N); 

WRITE_DATA 

END. 

Figura 10.5 — Interpolazione con i minimi quadrati per una funzione esponenziale 
non linearizzata (segue). 
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I 

T C 

0 

D Cale 

1 

600. 

1.40000e-12 

1.31051e-12 

2 

650. 

5.50000e-12 

5.41377e-12 

3 

700. 

1.80000e-11 

1 .93304e-11 

4 

750. 

6.10000e-11 

6.09471e-11 

5 

800. 

1.60000e-10 

1.72657e-10 

6 

850. 

4.40000e-10 

4.45808e-10 

7 

900. 

1.20000e-9 

1.06167e-9 

Coefficienti 



3.08933e-1 

Termine 

costanti 

-2.28603e4 



00 = 

0 . 

31 cm sq/sec. 


Q = 

45. 

42 kcal/mole 


SRS = 

0.0295 



Figura 10.6 - La diffusione dello zinco nel rame (interpolazione non lineare). 


Ora confrontate i risultati della Figura 10.4 con quelli della Figura 10.6: i valori 
della costante di diffusione D 0 e dell'energia di attivazione Q sono circa gli stessi, 
mentre la somma dei quadrati dei residui, SRS, è minore nell'interpolazione non li¬ 
neare. Precisiamo però che, se si fossero usati i residui linearizzati 


r = In D 0 - 


Q_ 

RT 


per il calcolo di SRS, il valore per l'interpoiazione lineare sarebbe più piccolo. Inol¬ 
tre, se i dati seguissero esattamente un’equazione esponenziale, avremmo esatta¬ 
mente gli stessi risultati in entrambi i casi; perciò conviene eseguire sia l’interpola- 
zione lineare che quella non lineare. Se i risultati sono molto diversi, è probabile che 
si sia fatto un errore nella misurazione o nella registrazione dei dati. 


SOMMARIO 

Abbiamo visto esempi di due tecniche di interpolazione non lineare, con la funzio¬ 
ne razionale (1) e la funzione esponenziale (2); abbiamo usato un approccio di li¬ 
nearizzazione e uno diretto. È importante ricordare che nessuno dei due rappresen¬ 
ta un metodo generale di interpolazione non lineare, ma sono tecniche particolari da 
usare con particolari equazioni. 
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CAPITOLO 11 


APPLICAZIONI AVANZATE 


La Curva Normale, la Funzione di errore Gaussiana, 
la Funzione Gamma, la Funzione di Bessel 


INTRODUZIONE 

Questo capitolo affronta alcune applicazioni avanzate della programmazione alla 
matematica, usando strumenti che abbiamo messo a punto nei capitoli precedenti 
del libro. Studieremo tre funzioni che hanno importanti applicazioni in matematica, 
in fisica e in ingegneria: la funzione di errore Gaussiana, la funzione Gamma e le 
funzioni di Bessel. 

Scriveremo due programmi per valutare la funzione di errore Gaussiana; il primo 
usa la regola di Simpson per l’integrazione numerica, il secondo uno sviluppo in se¬ 
rie di infiniti termini. Nel discutere la funzione Gaussiana riprenderemo in considera¬ 
zione il problema della diffusione, già affrontato nel Capitolo 10 a proposito dell’in- 
terpolazione non lineare. 

Studieremo poi la funzione Gamma, e svilupperemo un programma per valutarla 
in base alle sue particolari proprietà. Useremo infine questo programma per l’ultimo 
argomento del capitolo, una ricerca di soluzioni numeriche per l’equazione di Bes¬ 
sel, del primo e del secondo tipo. 

La precisione e il campo di applicabilità del vostro compilatore Pascal sono deter¬ 
minanti nell’esecuzione dei programmi di questo capitolo; perciò sarà necessario ri¬ 
chiamare i risultati dei programmi di valutazione eseguiti nel Capitolo 1. 

Cominciamo col rivedere i concetti fondamentali delle funzioni di distribuzione. 


LE FUNZIONI DI DISTRIBUZIONE NORMALE E CUMULATIVA 

Abbiamo visto nel Capitolo 2 che gli errori casuali che capitano durante misura¬ 
zioni sperimentali producono una distribuzione dei valori misurati intorno al valor 


307 



medio. Il grafico della frequenza dei dati risultanti ha la forma di una campana, che 
prende il nome di distribuzione normale o funzione della densità di probabilità, come 
si vede nella figura 11.1. 

La funzione normale è definita dalla equazione: 

z*‘ 

f(x) = e 2 (1) 

V 2tt 


A 

f(x) 

X 


Figura 11.1 — La funzione normale di distribuzione della probabilità. 


Questa funzione presenta un picco, corrispondente al valor medio, per x=0, e va¬ 
ria da meno infinito a più infinito. L'area sottesa dalla curva (sopra l’asse delle x) è 
normalizzata a 1, cioè: 

f(x)dx = 1 (2) 



Data la simmetria della curva, è facile vedere che l’area da 0 a infinito, cioè sotte¬ 
sa dalla metà destra della curva, è uguale a metà dell’area totale. 

L'area della figura compresa tra x = —oo e x = b prende il nome di funzione di di¬ 
stribuzione cumulativa F(x). 


F(x) = 



f(x)dx 


( 3 ) 


Questo integrale non può essere risolto in questa forma, ma il suo valore è ripor¬ 
tato nelle tavole dei manuali. Tavolta viene riportato al suo posto l’integrale 

■b 

f(x)dx (4) 


G(x) 


= f 
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Siccome la curva è normalizzata, un integrale può essere ottenuto facilmente dal¬ 
l'altro, in base alla relazione: 

F(x) = C(x) + 0.5 

Nel prossimo paragrafo studieremo alcuni metodi di calcolo numerico per ottene¬ 
re G(x), ma prima approfondiremo lo studio della curva normale. 


La deviazione standard 

L'area sottesa dalla curva normale è funzione della deviazione standard. Una pic¬ 
cola deviazione standard corrisponde a un insieme di valori misurati raggruppati vi¬ 
cino al valor medio, mentre una grande deviazione standard corrisponde a un insie¬ 
me di valori distribuiti lontano dalla media. La Figura 11.2 mostra due distribuzioni 
normali, con lo stesso valor medio ma con diversa deviazione standard. La curva 
con deviazione standard minore ha un picco più alto per x = 0, ma l’area sottesa dal¬ 
le due curve è uguale. 



Figura 11.2 — Curve normali con deviazione standard grande (a) e piccola (b). 


La Figura 11.3 mostra un grafico della funzione di distribuzione descritta dall'e¬ 
quazione 3. Questa funzione assume il valore 0.5 per x = 0, e tende asintoticamente 
a 1 per x tendente a più infinito. 
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Figura 11.3 — La funzione di distribuzione cumulativa. 

La funzione G(x) può essere usata per trovare la relazione tra la deviazione stan¬ 
dard e la corrispondente frazione di un particolare campione. Per esempio, G(1) va¬ 
le 0.34, cioè il 34% della popolazione è nell'intervallo da 0 a 1 della deviazione stan¬ 
dard. Il doppio di questo valore, il 68%, corrisponde a un intervallo di deviazione 
standard uguale a 1 da entrambe le parti del valor medio. La funzione di distribuzio¬ 
ne si ottiene facilmente dalla funzione Gaussiana, che discuteremo nel prossimo pa¬ 
ragrafo. 


LA FUNZIONE DI ERRORE GAUSSIANA 

Prima di definire la formula della funzione di errore Gaussiana e di sviluppare un 
programma per valutarla, faremo una breve digressione su un campo di applicazio¬ 
ne che ci è famigliare — la diffusione. L’equazione che descrive la diffusione di un ti¬ 
po di atomi in un altro tipo ci porterà infine alla nostra funzione di errore Gaussiana. 


Diffusione In una sbarra monodlmenslonale 

Per diffusione si intende il flusso di atomi, elettroni o calore da una regione di alta 
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concentrazione ad una di concentrazione minore. Il flusso risultante, J, può essere 
descritto dalla prima legge di Fick: 


I = -D 


dC 

dx 


dove C è la concentrazione e x la distanza. Il coefficiente di diffusione, o diffusività, 
D, è la stessa quantità che abbiamo usato per descrivere la diffusione dello zinco nel 
rame, nel Capitolo 10. Il segno meno significa che il flusso si ha nella direzione op¬ 
posta al gradiente della concentrazione. Se si tratta di un flusso di atomi, J si espri¬ 
me in unità di atomi per unità di superficie al secondo. La concentrazione, C, si e- 
sprime in unità di atomi per unità di volume. 

La prima legge di Fick si può usare anche per descrivere il flusso degli elettroni in 
un conduttore. Possiamo scrivere: 


dove J è la densità della corrente, V la tensione e x la distanza; <r è la conduttività 
elettrica. 

Analogamente, il flusso di calore si può esprimere come: 


J = k 


dT 

dx 


dove J è la conduttività termica in unità di energia per unità di superficie al secondo, 
e T è la temperatura. 

La seconda legge di Fick 

dC = D dK_ 
dt dx 2 

può essere usata per descrivere la concentrazione in funzione della posizione e del 
tempo. Esistono molte diverse soluzioni della seconda legge di Fick, che dipendono 
dalle condizioni al contorno. Per esempio, quando la concentrazione non cambia più 
al passare del tempo, si ha una condizione stazionaria. Poiché 



dt 

si ha 

2i* = o 

dx 2 

Questo significa che il gradiente della concentrazione ha un andamento rettilineo. 
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Un'altra utile soluzione descrive la diffusione di un tipo di atomi in un altro. La 
concentrazione superficiale degli atomi che si diffondono è costante al variare del 
tempo; supponiamo che gli altri atomi si presentino come una sbarra monodimen¬ 
sionale, semi-infinita. La soluzione, in questo caso è: 


C x ~ C 0 

Q — c 0 


1 - erf(y) = 1 - erf 



dove è la concentrazione degli atomi in diffusione al tempo t e alla distanza x 
dalla superficie, C s è la concentrazione superficiale, costante al variare del tempo, e 
C 0 è la concentrazione iniziale uniforme per ogni x, al tempo t = 0. D è il coefficiente 
di diffusione, e y ha il valore 


x 


2 VdT 

Se la concentrazione iniziale C 0 è zero, l’equazione diventa 
^ = 1 - erf (y) = 1 - erf / — -\ 

c > \2 VdT / 


dove erf è la funzione di errore Gaussiana, definita come 

erf(y) = —?— f e~'‘dt (5) 

V/n - J 
v o 

La funzione F(x), descritta dall'equazione 3, e la G(x), descritta dalla 4, possono 
essere ricavate dalla funzione di errore tramite le relazioni; 



Per esempio, l'intervallo rappresentato da due deviazioni standard da entrambe le 
parti rispetto al valor medio, si può ricavare dalla funzione di errore: 
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2C(2) = erf (vf) =95% 



PROGRAMMA PASCAL: 

CALCOLO DELLA FUNZIONE DI ERRORE GAUSSIANA 
CON LA REGOLA DI SIMPSON 

La funzione di errore non può essere calcolata in forma chiusa, ma è possibile ot¬ 
tenerne soluzioni particolari. Un approccio immediato è quello di usare una tecnica 
di integrazione numerica, come la regola di Simpson. In Figura 11.4 è mostrato un 
programma per questo. 


PROGRAM ERFSIAAP(INPUT, OUTPUT); 

(* integrazione con il metodo di Simpson *) 
(# 9 Feb 81 *) 

CONST 

TOL = 1.0E-5; 

PI = 3.141593; 


DONE : BOOLEAN; 

SUM, UPPER, LOWER, ERF, 

TWOPI : REAL; 

FUNCTION FX(X : REAL) : REAL; 

BEGIN 

FX := EXP( —X * X) 

END; (* function fx *) 

PROCEDURE SIMPS(LOWER, UPPER, TOL : REAL; 

VAR SUM : REAL); 

(* integrazione numerica con la regola di Simpson #) 

(# la funzione è fx, gli estremi sono lower ed upper *) 

(* con un numero di regioni uguale a pieces #) 

(* la partizione è delta_x, il risultato è SUM *) 

Figura 11.4 — La funzione di errore Gaussiana con la regola di Simpson. 
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VAR 

I : INTEGER; 

X, DELTA _X, EVEN_SUM, 

ODD_SUAA, END_SUM, SUM1 : REAL; 

PIECES : INTEGER; 

BEGIN 

PIECES := 2; 

DELTA _X := (UPPER - LOWER)/PIECES; 

ODD_SUM : = FX(LOWER + DELTA_X); 

EVEN_SUM := 0.0; 

END_SUM : = FX(LOWER) + FX(UPPER); 

SUM := (END_SUM + 4.0 * ODD_SUM) * DELTA_X/3.0; 

REPEAT 

PIECES : = PIECES * 2; 

SUM1 := SUM; 

DELTA_X := (UPPER - LOWER)/PIECES; 

EVEN_SUM := EVEN_SUM + ODD_SUM; 

ODD_SUM := 0.0; 

FOR l:= 1 TO PIECES DIV 2 DO 

BEGIN 

X := LOWER + DELTA _X * (2.0 * I - 1.0); 
ODD_SUM := ODD_SUM + FX(X) 

END; 

SUM := (END_SUM + 4.0 * ODD_SUM 

+ 2.0 * EVEN_SUM) * DELTA_X/3.0 
UNTIL ABS(SUM1 - SUM)<= ABS(TOL * SUM1) 

END (* simps *); 


Figura 11.4 — La funzione di errore gaussiana con la regola di Simpson (segue). 
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BEGIN (* programma principale *) 

DONE : = FALSE; 

TWOPI := 2.0/SQRT(PI); 

LOWER := 0.0; 

REPEAT 

WRITELN; 

WRITE ( ' Erf di 0.0 è 0.0') 
READLN(UPPER); 

IF UPPER < 0.0 THEN DONE : = TRUE 
ELSE IF UPPER = 0.0 THEN 

WRITELN('Erf di 0.: è 0.0') 

ELSE (* upper > 0 *) 

BEGIN 

SIAAPS(LOWER, UPPER, TOL, SUM); 
ERF : = TWOPI * SUM; 

WRITELN ('Erf di', UPPER:7:2, 
',è' t ERF:8:4) 

END 

UNTIL DONE 
END. 


Figura 11.4 — La funzione di errore gaussiana con la regola di Simpson (segue). 


Esecuzione del programma 

Il programma ripete più volte lo stesso ciclo, chiedendo all'utente dei dati di in¬ 
gresso; la funzione di errore è calcolata con il metodo di Simpson, e vengono stam¬ 
pati i'argomento e il corrispondente valore della funzione. Il programma ha termine 
quando si introduce un valore negativo. Ci sono diversi svantaggi nel calcolare la 
funzione di errore in questo modo; aH’aumentare del valore dell'argomento, aumen¬ 
ta il tempo di esecuzione e diminuisce la precisione del calcolo. Per un compilatore 
con aritmetica in floating point fino a sei o sette cifre di precisione, l'argomento può 
variare da zero a tre. 
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PROGRAMMA PASCAL: 

CALCOLO DELLA FUNZIONE DI ERRORE GAUSSIANA 
CON UNO SVILUPPO IN SERIE DI INFINITI TERMINI 


Un altro modo per calcolare la funzione di errore è di svilupparla in una serie di in¬ 
finiti termini, e di integrarla poi termine a termine. Il risultato è 


erf(y) = 


2 e -y‘ y 2 n y 2n+ì 

VfT n-o 1 '3■ ... • (2n + 1 ) 


Nella Figura 11.5 c’è un programma per calcolare la funzione di errore in questo 
modo. Scrivetelo, compilatelo ed eseguitelo: chiederà all'utente di introdurre un va¬ 
lore per l’argomento, e stamperà quindi questo valore e il valore corrispondente del¬ 
la funzione. 

La serie infinita è calcolata nella procedura ERF, aggiungendo alla somma ogni 
nuovo termine. Quando un certo termine non modifica la somma per più del valore 
TOL, la routine ha termine. 


PROGRAM ERFD(INPUT, OUTPUT); 

(* valutazione della funzione d’errore Gaussiana *) 
(* 23 Gen 81 *) 

VAR 

X, ANS : REAL; 

DONE : BOOLEAN; 

FUNCTION ERF(X : REAL) : REAL; 

(* Sviluppo della serie infinita della 
funzione d’errore Gaussiana *) 

CONST 

SQRTPI = 1.7724538; 

TOL = 1.0E-6; 

VAR 

X2, SUM, SUM1, TERM : REAL; 

I : INTEGER; 


Figura 11.5 — Uno sviluppo in serie infinita per la funzione di errore Gaussiana. 
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BEGIN 

IFX = O.OTHEN ERF : = 0.0 
ELSE IF X > 4.0 THEN ERF : = 1.0 

ELSE 

BEGIN 

X2 : = X * X; 

SUM := X; 

TERM : = X; 

I := 0; 

REPEAT 
I : = I + 1 ; 

SUAA1 := SUM; 

TERM := 2.0 * TERM * X2/(1.0 + 2.0 * I); 

SUM := TERM + SUM1 
UNTIL TERM < TOL * SUM; 

ERF := 2.0 * SUM * EXP(-X2)/SQRTPI 

END (* IF *) 

END (* erf *); 

BEGIN (* programma principale #) 

DONE : = FALSE; 

WRITELN; 

REPEAT 

WRITE(' Arg? '); 

READLN(X); 

IF X < 0.0 THEN DONE : = TRUE 

ELSE 

BEGIN 

ANS : = ERF(X); 

WRITELN ('Erf di'. X :6:3, 

'è'. AND :9:5; 

END 

UNTIL DONE 
END 

Figura 11.5 — Uno sviluppo in serie infinita per la funzione di errore Gaussiana 
(segue). 
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Esecuzione del programma 


L’utente deve introdurre per l'argomento un valore maggiore o uguale a zero; la 
funzione risultante varia da zero a uno, e precisamente è zero se l’argomento è ze¬ 
ro, e si avvicina all’unità per valori dell’argomento maggiori di 4. D’altra parte, nel¬ 
l'intervallo da 0 a 0.6, la funzione è circa uguale all’argomento. La funzione di errore 
ha la stessa forma della funzione di distribuzione cumulativa di Figura 11.3. 

In Figura 11.6 vi diamo alcuni valori della funzione stessa. Il programma continua 
a eseguire un ciclo, dando nuovi valori della funzione di errore fin quando viene in¬ 
trodotto un valore negativo per l'argomento. 


V 

erf(y) 

0.0 

0.0 

0.1 

0.1125 

0.2 

0.2227 

0.3 

0.3286 

0.4 

0.4284 

0.5 

0.5205 

0.7 

0.6778 

1.0 

0.8427 

2.0 

0.9953 


Figura 11.6 — La funzione di errore Gaussiana. 


Supponiamo di studiare la diffusione dello zinco in una sbarra di rame a 900° C. 
Possiamo usare la funzione di errore per determinare la concentrazione del rame in 
funzione del tempo e della distanza dalla superficie. Il coefficiente di diffusione può 
essere calcolato dalla costante di diffusione e dall’energia di attivazione, che sono 
state calcolate nel caso deN'interpolazione non lineare nel Capitolo 10. 

-45,420 _ 

D = 0.31 e 1.907(900+273) 

Per una distanza di 0.01 cm e un tempo di 13 ore, l’argomento y della funzione di 
errore vale 0.7, la funzione di errore vale 0.67, e il complemento della funzione di er¬ 
rore 0.33. Questo significa che la concentrazione dello zinco a una profondità di 
0.01 cm sarà il 33% della concentrazione superficiale dopo 13 ore. 

Nel prossimo paragrafo vedremo che gli errori di arrotohdamento rendono difficile 
il calcolo di una soluzione diretta del complemento della funzione di errore, e studie¬ 
remo un programma che usa due funzioni, per trattare sia argomenti grandi che pic¬ 
coli. 
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IL COMPLEMENTO DELLA FUNZIONE DI ERRORE 


Nella precedente soluzione dell’equazione di diffusione, ci interessava in realtà il 
complemento della funzione di errore più che la funzione stessa. Il complemento è 
definito come: 


erfc(y) = 



e si ottiene dalla relazione: 


erfc(y) = 1 — erf(y) 


( 6 ) 


Se però lo si calcola in questo modo, si hanno errori di arrotondamento signifi¬ 
cativi per valori dell’argomento maggiori di 3. Man mano che erf si avvicina a 1, 
(1 — erf) si avvicina a zero, e alla fine si perdono tutte le cifre significative. Inoltre il 
tempo di esecuzione aumenta all’aumentare del valore deM’argomento. 

D’altra parte l’equazione 6 non può essere integrata con la regola trapezoidale o 
con il metodo di Simpson, in quanto è problematico stabilire l’estremo superiore del¬ 
l’integrale: un valore superiore a 8 darà un underflow, in quanto e~ 64 è troppo 
piccolo, ma l’area da questo punto all'Infinito è significativa e non può essere ignora¬ 
ta. 


PROGRAMMA PASCAL: 

CALCOLO DEL COMPLEMENTO DELLA FUNZIONE DI ERRORE 

Una soluzione di questo problema può essere quella di usare due funzioni, una 
per valori piccoli e una per valori grandi dell’argomento. Il programma della Figura 
11.7 usa questo metodo. Lo sviluppo in serie di erf, in Figura 11.5, si usa per i valori 
più piccoli, mentre per quelli più grandi la funzione si calcola con uno sviluppo asin¬ 
totico. Questo algoritmo è tanto più preciso quanto più grande è il valore dell’argo¬ 
mento. L’equazione, espressa sotto forma di frazione, invece che con il solito svilup¬ 
po in serie, è: 

erfc(y)= 1/[1 + v/{1 +2v/[1 + 3v/(1 + ■■■)]} ] 

\Jnye Y ' 

dove 


v = 


1 

2y 2 
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PROGRAM ERFD3(INPUT, OUTPUT); 

(* valutazione della funzione d’errore Gaussiana *) 
(* 30 Gen 81 *) 

VAR 

X, ER, EC : REAL; 

DONE : BOOLEAN; 

FUNCTION ERF(X : REAL) : REAL; 

(# Sviluppo della serie infinita della 
funzione d'errore Gaussiana #) 

CONST 

SQRTPI = 1.7724538; 

TOL = 1.0E-5; 

VAR 

X2, SUM, SUM1, TERM : REAL; 

I : INTEGER; 

BEGIN 

X2 : = X * X; 

SUM := X; 

TERM : = X; 

I := 0; 

REPEAT 
I := I + 1; 

SUM1 := SUM; 

TERM := 2.0 * TERM * X2/(1.0 + 2.0 * I); 
SUM := TERM + SUM1 
UNTIL TERM < TOL * SUM; 

ERF := 2.0 * SUM * EXP( -X2)/SQRTPI 
END (* erf *); 


Figura 11.7 — La funzione di errore e il suo complemento. 


320 




FUNCTION ERFC(X : REAL) : REAL; 

(* Serie completa della funzione d’errore *) 

CONST 

SQRTPI = 1.7724538; 

TERMS = 12; 

VAR 

X2, U, V, SUAA ; REAL; 

I r INTEGER; 

BEGIN 

X2 : = X * X; 

V := 1.0/(2.0 * X2); 

U := 1.0 + V * (TERAAS + 1.0); 

FOR I := TERAAS DOWNTO 1 DO 
BEGIN 

SUAA := 1.0 + I * V/U; 

U := SUAA 

END; 

ERFC : = EXP( —X2)/(X * SUAA * SQRTPI) 
END (* ercf *); 

BEGIN (* programma principale *) 

DONE ; = FALSE; 

WRITELN; 

REPEAT 

WRITE(' Arg? '); 

READLN(X); 

IF X < 0.0 THEN DONE : = TRUE 

ELSE 

BEGIN 

IFX = 0.0 THEN 


Figura 11.7 — La funzione di errore e il suo complemento (segue). 
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BEGIN 

ER := 0.0; 

EC := 1.0 

END 

ELSE 

BEGIN 

IF X < 1.5THEN 
BEGIN 

ER := ERF(X); 

EC := 1.0 - ER 

END 

ELSE 

BEGIN 

EC := ERFC(X); 

ER := 1.0 - EC 

END (* IF *) 

END; 

WRITELN(' X= X:6:2, Erf = 
ER :7:4, Erfc= EC) 

END (* IF *) 

UNTIL DONE 
END. 


Figura 11.7 — La funzione di errore e il suo complemento (segue). 

Esecuzione del programma 

Scrivete la nuova versione ed eseguitela. Il programma stamperà la funzione di 
errore e il suo complemento. Per valori deM’argomento minori di 1.5, la funzione di 
errore viene calcolata nella procedura ERF con lo sviluppo in serie di infiniti termini 
di Figura 11.5, e il suo complemento si ottiene con una sottrazione da 1. Se il valore 
dell’argomento è maggiore o uguale a 1.5, il complemento viene calcolato con lo 
sviluppo asintotico nella procedura ERFC, e la funzione di errore si ottiene con una 
sottrazione da 1. 

Confrontate la funzione di errore ottenuta con questa versione con i dati della Fi¬ 
gura 11.6, e controllate il suo complemento con i dati della Figura 11.8. 
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y 

erfc(y) 

1.5 

3.390E-2 

2.0 

4.678E- 3 

2.5 

4.070E- 4 

3.0 

2.209E- 5 

3.5 

7.431 E-7 

4.0 

1.542E-8 

4.5 

1.966E-10 


Figura 11.8 — La funzione di errore complementare. 


Ora modificheremo il programma per calcolare la funzione di errore con le paren¬ 
tesi nidificate invece che con un ciclo FOR... DO. 

PROGRAMMA PASCAL: 

UN’IMPLEMENTAZIONE PIÙ VELOCE 

DEL CALCOLO DELLA FUNZIONE DI ERRORE 

Nel programma precedente la funzione di errore veniva calcolata sommando con 
un ciclo diversi termini; questo metodo iterativo è più lento di una somma diretta, ma 
ha il vantaggio di funzionare in genere con qualsiasi compilatore Pascal. Cionono¬ 
stante, quando si può, è preferibile un metodo non iterativo, in cui i termini sono 
sommati direttamente, come quello che svilupperemo nel prossimo paragrafo. 

La funzione di errore viene calcolata nella nuova versione della funzione ERF, co¬ 
me equazione polinomiale del 12° ordine. I coefficienti vengono definiti all'inizio del¬ 
la funzione come T2, T3, T4, etc.. Si è scelto un polinomio a dodici termini poiché 
tanti sono necessari per un argomento di 1.5; un numero minore basta per argomen¬ 
ti più piccoli, ma, anche così, questo metodo è notevolmente più veloce del prece¬ 
dente. 

La funzione di errore complementare è anch'essa calcolata con una somma diret¬ 
ta, e anche in questo caso, il risultato si ottiene più rapidamente. 

Con questa nuova versione si può presentare un problema: molti compilatori Pa¬ 
scal non sono in grado di elaborare espressioni con diversi livelli di parentesi. In pre¬ 
visione di ciò, sia l’espressione della funzione di errore che la sua complementare 
sono state suddivise in due o tre parti, ma anche con questo accorgimento l’elabora¬ 
zione può risultare troppo complessa per almeno un compilatore. Dovreste comun¬ 
que tentare almeno di compilare questa versione. Fate una copia del programma 
precedente e modificate le funzioni secondo la Figura 11.9. 
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PROGRAM ERF4(INPUT, OUTPUT); 

(* valutazione della funzione d'errore Gaussiana *) 

(* 30 Gen 81 *) 

VAR 

X, ER, EC : REAL; 

DONE : BOOLEAN; 

FUNCTION ERF(X : REAL) : REAL; 

(* Sviluppo della serie infinita della 
funzione d’errore Gaussiana *) 

CONST 

SQRTPI = 1.7724538; 

T2 = 0.6666667; 

T3 = 0.2666667; 

T4 = 0.07619048; 

T5 = 0.01693122; 

T6 = 3.078403E —3; 

T7 = 4.736005E —4; 

T8 = 6.314673E —5; 

T9 = 7.429027E —6; 

T10 = 7.820028E—7; 

TU = 7.447646E —8; 

TI 2 = 6.476214E-9; 

VAR 

X2, SUM : REAL; 

BEGIN (* function erf *) 

X2 : = X * X; 

SUM : = T5 + X2 * (T6 + X2 * (T7 + X2 * (T8 + X2 * (T9 
+ X2 * (T10 + X2 * (TU + X2 * T12)))))); 

ERF := 2.0 * EXP(-X2)/SQRTPI 

* (X * (1 + X2 * (T2 + X2 * (T3 + X2 * (T4 + X2 

* SUM))))) 

END (* function erf *); 


Figura 11.9 — Un calcolo non iterativo della funzione di errore. 
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FUNCTION ERFC(X : REAL) : REAL; 

(* serie completa della funzione d'errore *) 

CONST 

SQRTPI = 1.7724538; 

VAR 

X2, V, SUM : REAL; 

BEGIN (* function erfc *) 

X2 : = X * X; 

V : = 1.0/(2.0 * X2); 

SUM := V/(1 + 8 * V/( 1 + 9 * V/(1 + 10 * V 
/(I + 11 * V/(l + 12 * V))))); 

SUM := V/(l + 3 * V/(l + 4 * V/(l + 5 * V 
/ (1 + 6 * V/(l + 7 * SUM))))); 

ERFC := 1.0/(EXP(X2) * X * SQRTPI 
* (1 + V/(l + 2 * SUM))) 

END (* function ercf *); 

BEGIN (* programma principale *) 

DONE := FALSE; 

WRITELN; 

REPEAT 

WRITE(' Arg? '); 

READLN(X); 

IF X < 0.0 THEN DONE : = TRUE 

ELSE 

BEGIN 

IFX = 0.0 THEN 
BEGIN 

ER := 0.0; 

EC : = 1.0 

END 


Figura 11.9 — Un calcolo non iterativo della funzione di errore (segue). 
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ELSE 

BEGIN 

IFX< 1.5THEN 
BEGIN 

ER := ERF(X); 

EC := 1.0 - ER 

END 

ELSE 

BEGIN 

EC := ERFC(X); 

ER := 1.0 - EC 

END (* IF *) 

END; 

WRITELN(' X= X:6:2, Erf= 
ER :7:4, Erfc= EC) 

END (* IF *) 

UNTIL DONE 
END. 


Figura 11.9 — Un calcolo non iterativo della funzione di errore (segue). 


Nel prossimo paragrafo studieremo le caratteristiche particolari della funzione 
Gamma, e svilupperemo un programma per calcolarla. 


LA FUNZIONE GAMMA 


Una funzione imparentata con la funzione di errore è nota come la funzione Gam¬ 
ma, ed è definita dall'integrale: 


r(n) = 



o 


(7) 
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Questa funzione è importante poiché è una parte della soluzione dell'equazione di 
Bessel. Inoltre può essere usata per calcolare i fattoriali, con la relazione ricorsiva 


l"(n + 1) = nT(n) (8) 

Poiché r(1) = 1, risulta che 

T( 2 ) = r( 1 ) = 1 = 1 ! 

T(3) = 2T(2) = 1-2 =2! 

T(4) = 3T(3) = 1-2-3 = 3! 

r (n) = (n-DHn-l) = (n-1)! 


La formula generale per usare la funzione Gamma per il calcolo dei fattoriali è: 
f(n+ 1) = nf(n) = n! 


Poiché la funzione Gamma è definita per ogni argomento reale maggiore di zero, 
può essere definito analogamente il fattoriale di argomenti non interi. Inoltre vedia¬ 
mo che 


r(0.5) = -0.5! = \nr 

e questo sarà utile nel calcolo delle funzioni di Bessel. La funzione Gamma è definita 
anche per numeri negativi non interi, mentre diventa infinita per un valore dell'argo¬ 
mento nullo o intero negativo. Nella Figura 11.10 è riportato un grafico della funzio¬ 
ne Gamma per argomenti reali. 

La funzione Gamma può essere calcolata con una forma di approssimazione di 
Stirling: 


r(x) = 


d X V 
V x 


dove 


12x 360x 3 


Poiché questa è una serie asintotica, la precisione relativa aumenta all'aumentare 
del valore dell’argomento. 
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PROGRAMMA PASCAL: CALCOLO DELLA FUNZIONE GAMMA 


il programma della Figura 11.2 usa l’approssimazione di Stirling per calcolare la 
funzione Gamma. L’argomento può essere qualsiasi numero reale maggiore di zero 
e minore di 32. Il limite superiore dipende dall’aritmetica in floating point del vostro 
compilatore. L'argomento può essere anche negativo, se non è intero, mentre non 
può essere nullo o intero negativo. 



Figura 11.10 — La funzione Gamma. 


Gli argomenti positivi vengono incrementati ogni volta di 2, e viene calcolata la 
funzione Gamma corrispondente al nuovo argomento. Il valore risultante è poi ricon¬ 
dotto all'argomento originale con l’algoritmo: 


r(x) = 


Rx+2) 

x(x+1) 
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Questa conversione non è necessaria per gli argomenti di valore maggiore, ma 
garantisce sei cifre di precisione per tutti i valori di x. 

Gli argomenti negativi sono incrementati fino a diventare positivi, e la funzione 
Gamma viene richiamata ricorsivamente per calcolare il nuovo valore. Il risultato 
viene poi corretto per l'argomento originale. 


Esecuzione del programma 

Scrivete il programma ed eseguitelo. Provate con i dati della Figura 11.11 e confron¬ 
tate i valori di T(x) con i vostri risultati. Il programma esegue ripetutamente un ciclo, 
che ha termine se inserite un numero minore di —22. Poiché: 


x! = Rx+1) 


il programma può essere facilmente riscritto per generare fattoriali invece della fun¬ 
zione Gamma. 


X 

T(x) 


1 

1 

0! 

2 

1 

1! 

3 

2 

2! 

4 

6 

3! 

5 

24 

4! 

6 

120 

5! 

0.5 

1.7725 

\nr 

-0.5 

t- 3.5449 

-r(0.5)/0.5 

-1.5 

2.3633 

-r(-0.5)/ 1.5 


Figura 11.11 — Alcuni valori della funzione Gamma. 
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PROGRAM TSTGAM(INPUT, OUTPUT); 
(* prova della funzione gamma *) 

(* 26 Gen 81 *) 

VAR 

X : REAI; 

FUNCTION GAMMA(X : REAl) : REAL; 
(* 26 Gen 81 *) 

CONST 

PI = 3.1415926; 


VAR 

I, J : INTEGER; 
Y, GAM : REAL; 


BEGIN (* gamma function *) 

IFX> = O.OTHEN 
BEGIN 

Y := X + 2.0; 

GAM : = SQRT(2 * Pl/Y) 

★ EXP(Y * LN(Y) + (1 - 1/(30 * Y * Y)) 

/(12 * Y) — Y); 

GAMMA : = GAM/(X ★ (X + 1 )) 

END 

ELSE (* x<0 *) 

BEGIN 

J:=0; 

Y:= X; 

REPEAT (* incrementa l’argomento fino a quando è positivo #) 
J := J + 1; 

Y : = Y + 1.0 


Figura 11.12 — Calcolo della funzione Gamma. 
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UNTIL Y > 0.0; 

GAM := GAAAMA(Y) (* chiamata ricorsiva *); 

FORI := OTOJ - 1 DO 

GAM := GAM/(X 4- I); 

GAMAAA := GAM 
END (* x< 0 *) 

END (* gamma function *); 

BEGIN (* programma principale *) 

WRITELN; 

REPEAT 

REPEAT 

WRITEf X: '); 

READLN(X) 

UNTIL X<> 0.0; 

WRITELN( 'Gamma è', GAMMA(X)) 

UNTIL X< -22.0 
END 


Figura 11.12 — Calcolo della funzione Gamma (segue). 


Negli ultimi due paragrafi di questo capitolo introdurremo le funzioni di Bessel del 
primo e del secondo tipo. L’equazione di Bessel è un’equazione differenziale con 
molte applicazioni matematiche e scientifiche, e le sue soluzioni si possono trovare 
usando le funzioni di Bessel. Svilupperemo due programmi Pascal per queste fun¬ 
zioni. 


FUNZIONI DI BESSEL 

L'equazione di Bessel: 


x 2 y" + xy' + (x 2 - n 2 )y = 0 


compare nell'analisi di molti problemi di diverso genere che presentano una simme- 
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tria circolare. In questa equazione, x è la variabile indipendente, y la variabile dipen¬ 
dente e n una costante che prende il nome di ordine. È un'equazione differenziale 
non lineare, che non può essere risolta in forma chiusa. Una delle sue soluzioni è: 


y = InM 


dove J n è la funzione di Bessel di ordine n-esimo del primo tipo. 

I valori delle funzioni di Bessel sono stati ampliamento tabulati per particolari va¬ 
lori di x e di n, ma sono difficili da usare in questa forma. Per valori di x minori di 15, 
possono essere calcolate dalla serie di infiniti termini: 


_ 5- (- 1 )*! /x\ n * 2k 

InM -*ÌD /c!r(n + k+ 1) \ 2/ 


D'altra parte l'espressione asintotica: 



può essere usata per valori di x maggiori. In Figura 11.13 è riportato il grafico delle 
funzioni di Bessel J 0 e J,. 
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PROGRAMMA PASCAL: 

FUNZIONI DI BESSEL DEL PRIMO TIPO 


Il programma della Figura 11.15 usa entrambe le equazioni 9 e 10 per calcolare le 
funzioni di Bessel del primo tipo. L’ordine può essere zero o un numero positivo; l’ar¬ 
gomento può essere anche un numero negativo non intero. Il programma compren¬ 
de la funzione Gamma del precedente paragrafo. Per argomenti minori di 15 si usa¬ 
no le serie di infiniti termini, per argomenti maggiori l'espressione asintotica. Ci può 
essere una caduta di precisione nella regione di passaggio, dovuta alle caratteristi¬ 
che dell’aritmetica in floating point del vostro compilatore. 

Scrivete il programma ed eseguitelo. Provate con i dati di Figura 11.14 per l’ordi¬ 
ne e l’argomento, e confrontate i risultati. Il programma ha termine quando inserite 
un valore minore di —25 per l’ordine. 

Poiché l’equazione di Bessel è del secondo ordine, esistono due soluzioni indipen¬ 
denti. Quando l’ordine n non è intero, entrambe le soluzioni si ottengono dalle fun¬ 
zioni di Bessel J, con l’espressione: 

V = Al n (x) + Bl. n (x ) 

dove A e B sono costanti da determinare con le condizioni al contorno. 


Ordine 

Argomento 

Funzioni 

1 

1 

0.4401 

0 

1 

0.7652 

1 

0.5 

0.2423 

0 

0.5 

0.9385 

1 

10 

0.04347 

0 

10 

-0.2459 

0.25 

1 

0.7522 

0.25 

1.5 

0.6192 

0.5 

* 1.5708 (n/2) 

0.6366 (2 In) 

-0.25 

1 

0.6694 

-0.25 

1.5 

0.3180 

-0.75 

1.5 

-0.2684 


Figura 11.14 — Alcuni valori della funzione di Bessel. 
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PROGRAM TSTBES(INPUT, OUTPUT); 

(* prova della funzione di Bessel *) 

(* è inclusa la funzione gamma *) 

VAR 

DONE : BOOLEAN; 

X, ORDR : REAL; 

FUNCTION GAMMA(X : REAL) : REAL; 

(# 26 Gen 81 *) 

CONST 

PI = 3.1415926; 

VAR 

I, J : INTEGER; 

Y, GAM : REAL; 

BEGIN (* gamma function *) 

IFX>= O.OTHEN 
BEGIN 

Y : = X + 2; 

GAM := SQRT(2 * Pl/Y) * EXP(Y * LN(Y) 

+ (1 - 1/(30 * Y * Y))/(12 * Y) - Y); 
GAAAAAA := GAM/(X * (X + 1)) 

END 

ELSE (* x<0 *) 

BEGIN 

J:=0; 

Y:=X; 

REPEAT 

J :=J + 1; 

Y : = Y + 1.0 


Figura 11.15 — La funzione di Bessel del primo tipo. 
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UNTIL Y > 0.0; 

GAM := GAMMA(Y); 

FOR I : = 0 TO J - 1 DO 

GAM := GAM/(X + I); 

GAMAAA : = GAM 

END (* IF *) 

END (* gamma function *); 

FUNCTION BESSJ(X, N : REAL) : REAI; 

(* funzione di Bessel cilindrica #) 

(# del primo tipo *) 

(# è richiesta la funzione gamma *) ) 

(* 2 Feb 81 *) 

CONST 

TOL = 1.0E-5; 

PI = 3.1415926; 

VAR 

I : INTEGER; 

TERM, NEW_TERM, SUM, X2 : REAL; 

BEGIN (* bessj *) 

X2 := X * X; 

IF (X = 0.0) AND (N = 1.0) THEN BESSJ : = 0.0 
ELSE IF X > 15 THEN (* sviluppo asintotico *) 

BESSJ := SQRT(2/(PI ★ X)) * COS(X - PI/4 - N * PI/2) 

ELSE 

BEGIN (* serie infinita ordinata *) 

IF N = 0.0 THEN SUM := 1.0 

ELSE SUM := EXP(N * LN(X/2))/GAMMA(N -f 1.0); 

NEW _TERM := SUM; 

I := 0; 


Figura 11.15 — La funzione di Bessel del primo tipo (segue). 
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1 


REPEAT 

I := I + 1; 

TERM := NEW _ TERM; 

NEW_TERAA := -TERM * X2 * 0.25/(l * (N + I)); 

SUM := SUM + NEW_TERM 
UNTIL ABS(NEW _TERM) < = ABS(SUM * TOL); 

BESSJ := SUM 
END (* IF *) 

END (* bessj *); 

BEGIN(* programma principale *) 

DONE : = FALSE; 

REPEAT 

WRITE('Ordine:'); 

READLN (ORDR); 

IF ORDR < - 25.0 THEN DONE : = TRUE 

ELSE 

BEGIN 

WRITE(' X: '); 

READLN(X); 

WRITELN('J Bessel è', BESSJ(X, ORDR)) 

END 

UNTIL DONE 
END. 

Figura 11.15 — La funzione di Bessel del primo tipo (segue). 

PROGRAMMA PASCAL: 

FUNZIONE DI BESSEL DEL SECONDO TIPO 

Se l’ordine dell’equazione di Bessel è intero, le soluzioni J n ( X ) e J n (x) sono 
linearmente dipendenti; una seconda soluzione, indipendente, si può ottenere dall’e¬ 
spressione: 

V = ALM + BYJx) 

dove Y è una funzione di Bessel del secondo tipo. 
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Il programma di Figura 11.18 può essere usato per calcolare le funzioni di Bessel 
del secondo tipo. L’ordine può essere qualsiasi numero reale, ma in genere queste 
funzioni si usano solo per ordini interi. Sono utilizzati due diversi algoritmi. Per argo¬ 
menti di valore minore di 12, i valori di Y 0 e Y, sono calcolati con le espressioni: 

Y 0 (x)= \ I (-i)m (>L) 2m l Inf +r-h] 

m -° V 2/ (m!) 2 

e 

y,(x) = - 2 + 2 i (_i )m+1 /xY'"-i Kf)fr-h +2 -^] 

dove 

m 

h = I — se m > 1 

r -1 r 

e Y è la costante di Eulero (Y = 0.57721566). Per ordini diversi da 0 e da 1 si usa la 
formula: 

Y nW = T^n-lW - Y n _ 2 (x) 

Per argomenti di valore maggiore si usa uno sviluppo asintotico simile a quello u- 
sato per le funzioni di Bessel J: 

Y n (x) = \|Xsin(x-2L-^ 

La Figura 11.16 mostra un grafico delle funzioni Y 0 e Y,. 



Figura 11.16 — Le funzioni di Bessel Y 0 e Y,. 
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Scrivete il programma e provatelo. L'argomento deve essere un numero positivo, 
poiché la funzione va da (—oo) a 0. Nella Figura 11.17 sono mostrati alcuni valori ti¬ 
pici. 


Argomento 

Vo 

v , 

1 

0.088 

-0.781 

2 

0.510 

-0.107 

3 

0.377 

0.325 

11 

-0.169 

0.164 

15 

0.206 

0.021 


Figura 11.17 — Alcuni valori della funzione di Bessel del secondo tipo. 


PROGRAM BESY(INPUT, OUTPUT); 

(* valutazione della funzione di Bessel *) 
(* del secondo tipo *) 

(* 2 Feb 81 *) 

VAR 

X, ORDR : REAL; 

DONE : BOOLEAN; 

FUNCTION BESSY(X, N : REAL) : REAL; 

(* funzione di Bessel cilindrica *) 

(* del secondo tipo *) 

(* 2 Feb 81 *) 

CONST 

SAAALL = 1.0E-8; 

EULER = 0.57721566; 

PI = 3.1415926; 

PI2 = 0.63661977 (* 2/pi *); 


Figura 11.18 — La funzione di Bessel del secondo tipo. 
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VAR 

J : INTEGER; 

X2, SUM, SUM2, T, T2, TS, TERM, XX, YO, Yl, 

YA, YB, YC, ANS, A, B, SIN A, COSA : REAL; 

BEGIN (* function bessy *) 

IF X < 12THEN 
BEGIN 

XX := 0.5 * X; 

X2 : = XX * XX; 

T := LN(XX) + EULER; 

SUM : = 0.0; 

TERM : = T; 

YO : = T; 

J:=0; 

REPEAT 
- J := J + 1; 

IF J<> 1 THENSUM := SUM + 1/(J - 1); 

TS : = T - SUM; 

TERM := — X2 * TERM/(J * J) * (1 - 1/(J * TS)); 
Y0:= YO + TERM 
UNTIL ABS(TERM) < SAAALL; 

TERM : = XX * (T - 0.5); 

SUM := 0.0; 

Yl := TERM; 

J:= 1; 

REPEAT 
J := J + 1; 

SUM := SUM + 1/(J - 1); 

TS : = T - SUM; 

TERM := (-X2 * TERM)/(J * (J - 1 )) * 

((TS - 0.5/J)/(TS + 0.5/(J - 1))); 

Yl := Yl + TERM 


Figura 11.18 — La funzione di Bessel del secondo tipo (segue). 
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UNTIL ABS(TERM) < SMALL; 

YO : = PI2 * YO; 

Y1 := PI2 * (Y1 - 1/X); 

IFN = O.OTHEN ANS := YO 
ELSE IF N = 1.0 THEN ANS : = Y1 
ELSE 

BEGIN (* trova Y con la ricorsività *) 

TS : = 2.0/X; 

YA := YO; 

YB := Yl; 

FOR J : = 2 TO TRUNC(N + 0.01 ) DO 

BEGIN 

YC : = TS * (J - 1 ) * YB - YA; 

YA : = YB; 

YB : = YC 

END; 

ANS:= YC 

END; 

BESSY : = ANS; 

END (* x< 12 *} 

ELSE (* x >11. sviluppo asintotico *) 

BESSY := SQRT(2/(PI * X)) * SIN(X - PI/4 - N * PI/2) 
END (* function bessy *); 

BEGIN (* programma principale *) 

DONE := FALSE; 

WRITELN; 

REPEAT 

WRITE('Ordine?'); 

READLN (ORDR); 

IF ORDR < 0.0 THEN DONE : = TRUE 


Figura 11.18 — La funzione di Bessel del secondo tipo (segue). 
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BEGIN 

REPEAT 

WRITE(' Arg? '); 

READLN(X) 

UNTIL X >= 0.0; 

WRITELNCY Bessel è', BESSY(X, ORDR)) 

END (* IF *) 

UNTIL DONE 
END 


Figura 11.18 — La funzione di Bessel del secondo tipo (segue). 


il programma ha termine se si dà un numero minore di zero. 

SOMMARIO 

Nel Capitolo 11 abbiamo rivisto alcuni concetti già affrontati in questo libro, e usa¬ 
to alcuni programmi scritti in precedenza. Con gli strumenti che abbiamo ora a di¬ 
sposizione siamo ormai in grado di realizzare alcune applicazioni matematiche ve¬ 
ramente avanzate. Abbiamo studiato programmi in Pascal che calcolano con proce¬ 
dure diverse la funzione di errore Gaussiana, la funzione Gamma e le funzioni di 
Bessel. Sviluppando questi e altri programmi, abbiamo dato una dimostrazione del¬ 
l'eleganza della programmazione in Pascal per applicazioni tecniche. 


341 





APPENDICE A 


PAROLE RISERVATE 
E FUNZIONI DI SISTEMA 


PAROLE RISERVATE 


Le seguenti parole riservate del Pascal appaiono in neretto nel testo: 


AND 

ARRAY 

BEGIN 

CASE 

CONST 

DIV 

DO 

DOWNTO 

ELSE 

END 

EXTERN* 

FILE 

FOR 

FUNCTION 

GOTO 

IF 

IN 

LABEL 

MOD 

NIL 

NOT 

OF 

OR 

PACKED 

PROCEDURE 

PROGRAM 

RECORD 

REPEAT 

SET 

THEN 

TO 

TYPE 

UNTIL 

VAR 

WHILE 


WHITH 


* A seconda dell'implementazione 


FUNZIONI DI 

1 SISTEMA 

Nome 

Operazione eseguita 

ABS 

Valore assoluto 

ARCTAN 

Arcotangente 

CHR 

Converte un numero intero in un carattere 

COS 

Coseno 

EOLN 

È vera quando si raggiunge la fine di una linea 

EOF 

È vera quando si raggiunge la fine di un file 

EXP 

e elevato a potenza 

LN 

Logaritmo naturale 

ODD 

È vera se l'argomento intero è dispari 
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ORD 

PRED 

ROUND 

SIN 

SOR 

SQRT 

SUCC 

TRUNC 


Converte un carattere in un numero intero 

Valore inferiore più vicino (di tipo carattere, intero o scalare) 

Converte un numero reale in un intero arrotondandolo 

Seno 

Elevamento al quadrato 
Radice quadrata 

Valore superiore più vicino (di tipo carattere, intero o scalare) 
Converte un numero reale in intero troncandolo 
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APPENDICE B 


SOMMARIO DEL LINGUAGGIO PASCAL 


INSIEME MINIMO DEI CARATTERI STANDARD 

Tutti i caratteri alfabetici A - Z e/o a - z 

Le cifre 0-9 

I caratteri speciali + — #/ =<>()[]. 

Lo spazio (blank) 


NOMI DELLE VARIABILI 

Il nome di una variabile in Pascal può essere una qualsiasi sequenza di caratteri 
alfabetici e numerici contigui. Alcuni compilatori accettano caratteri non alfanume¬ 
rici, come il carattere della sottolineatura. 

Esempi: 

SEED LINEI SUM_X2 Y_CALC 


La lunghezza massima consentita per un nome varia da un compilatore all’altro; 
alcuni consentono un massimo di 6 o 8 caratteri, altri accettano fino a 32 caratteri e 
oltre. Perciò in questo libro sono stati usati identificatori come: 

SUM_X_SQUARED 


e 


SUM_Y_SQUARED 
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invece di 


SUM_SQUARE_X 

e 

SUM_SQUARE_Y 

NUMERI 

I numeri interi sono stringhe di cifre con o senza segno. 

Esempi: 

15 -19253 +7 0 

I numeri reali sono scritti con il punto decimale o un fattore di scala, o entrambi: 

379.1275 3.791275E2 3791275E-4 

II simbolo E indica la moltiplicazione per una potenza del 10 (E2 significa IO 2 ) e 
deve sempre essere seguito da un intero con o senza segno. 


COMMENTI 

I commenti sono scritti tra i simboli (* e *), e vengono ignorati dal compilatore. 
Esempio: 

(* riceve i valori per n e le matrici x, y *) 

Alcuni compilatori accettano i simboli lei come delimitatori di commenti. 


OPERAZIONI 

Operazioni Intere 

+ Addizione 

— Sottrazione 
* Moltiplicazione 

DIV Divisione 

MOD Modulo (fornisce il resto della divisione tra due interi) 
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Operazioni reali 

+ Addizione 

— Sottrazione 

k Moltiplicazione 

/ Divisione 


Operazioni Booleane 


AND OR NOT 


Operazioni relazionali 

Danno come risultato un valore Booleano VERO o FALSO (TRUE o FALSE). 

< Minore di 

> Maggiore di 

= Uguale a 

<= Minore o uguale di 

>= Maggiore o uguale di 

< > Diverso da 

IN Si usa con il tipo dati SET per determinare l’insieme d 
appartenenza di un elemento (Vedi "Tipi di insiemi”). 


SINTASSI 


Intestazione del programma 

PROGRAM PROGRAM _N AM E (FILE_NAME,FILE_NAME, ...); 


Esempio: 


PROGRAM TSTSORT(INPUT,OUTPUT); 
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Definizione di costanti 


CONST CONST_NAME = valore; CONST_NAME = valore;... 


Esempio: 

CONST 

MAXR = 20; («punti*) 

MAXC = 4; («termini polinomiali*) 


In Pascal esistono alcune costanti predefinite: 

TRUE Valore Booleano vero 

FALSE Valore Booleano falso 

MAXI NT II più grande intero accettato dal calcolatore 

NIL Puntatore nullo 

Notate che una costante deve essere definita con un unico valore, e non con 
un'espressione. La seconda delle istruzioni che seguono non è lecita: 

CONST 

Y = 3; (legale) 

X = Y + 1 (illegale) 

Definizione di variabili 

VAR 

VAR_NAME, VAR_NAME, TYPE; 

VAR_NAME, VAR_NAME, TYPE; ... 

Esempio: 

VAR 

X, X2: REAL; 

ALLDONE: BOOLEAN; 

ERROR: BOOLEAN; 


Istruzioni di assegnamento 

VAR_NAME: = espressione 
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Esempio: 


X : = SEED + PI 
X : = EXP(5.0 LN(X)); 
SEED : = X - TRUNC(X); 
RANDOM : = SEED 


Istruzioni composte 

Un’istruzione composta è una sequenza di istruzioni comprese tra una BEGIN e 
una END. 

Esempio: 

BEGIN («scambio*) 

HOLD : = P; 

P : = Q; 

Q:= HOLD 
END («scambio*) 


Definizione di una procedura 

PROCEDURE PROC_NAME (valore dei parametri; VAR parametri variabili); 
corpo della procedura 


Esempio: 

PROCEDURE DERIV (X: REAL; VAR FX, DFX: REAL); 

VAR 

E : REAL; 


BEGIN (*deriv«) 

E : = EXP(X); 

FX : = E - 4.0 * X; 
DFX : = E - 4.0 
END («deriv*) 
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Definizione di funzioni 


FUNCTION FUNC_NAME (parametri): tipo_risultato; corpo della funzione. Il va¬ 

lore del risultato della funzione viene assegnato (nel corpo della funzione) con un’i¬ 
struzione del tipo 

FUNCT_NAME: = valore; 

Esempio: 

FUNCTION DETER (A : ARV 2) : REAL; 

(* Calcola il determinante di una matrice 3-per-3 *) 

VAR 

SUM : REAL; 

BEGIN (*deter#) 

SUM : = A[1,11 * (A[2,2] * A[3,2] - A[3,2] * A[2,3]) 

- A[1,2] * (A[2,1 ] * A[3,3) - A[3,1] * A[2,3]) 

+ A[1,3] * (A[2,1 ] * A13.2] - A(3,1] * A[2,2]); 

DETER : = SUM 
END (*deter*); 


Uso del punto e virgola (;) 

Fra due istruzioni Pascal è sempre necessario un punto e virgola; non è necessa¬ 
rio immediatamente dopo un BEGIN o immediatamente prima di una END, ma è in¬ 
nocuo. Non deve mai precedere immediatamente la ELSE nella costruzione IF- 

THEN-ELSE. 


ISTRUZIONI CONDIZIONALI 


L’istruzione IF-THEN 

IF espressione THEN istruzione 
Esempio: 

IF B [N,N] = 0.0 THEN ERROR: = TRUE 
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L’istruzione IF-THEN-ELSE 


IF espressione THEN istruzione ELSE istruzione 


Esempio: 


IF DET = 0.0 THEN 
BEGIN 

ERROR : = TRUE; 

WRITELN ('ERRORE: matrice singolare’) 

END 

ELSE 

BEGIN 

SETUP(B,COEF,1); 

SETUP(B,COEF,2); 

SETUP(B,COEF,3) 

END (xELSEx) 


L’istruzione CASE 


CASE espressione OF 
etichette: istruzione; 
etichette: istruzione; 


etichette: istruzione; 

END 


Esempio: 

CASE YEAR OF 

1: WRITE(‘FRESHMAN’); 

2: WRITE('SOPHOMORE'); 
3: WRITE('JUNIOR'); 

4: WRITE('SENIOR’); 

5,6,7: WRITE(‘GRADUATE’) 
END; 
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ISTRUZIONI ITERATIVE 


L’istruzione WHILE-DO 


WHILE espressione DO istruzione 
Esempio: 

WHILE PIVOT < A[J 1 DO J : = J - 1; 


L’Istruzione REPEAT-UNTIL 

REPEAT gruppo di istruzioni UNTIL espressione 
Esempio: 

REPEAT 

WRITE('Quante equazioni?’); 

READLN(N) 

UNTIL N<MAXR; 

L’istruzione FOR-TO-DO 

FOR variabile : = primo valore TO ultimo valore DO istruzione 
Esempio: 

FOR J : = 1 TO N DO WRITE (COEFfJ]); 

L’istruzione FOR - DOWNTO - DO 

FOR variabile : = primo valore DOWNTO ultimo valore DO istruzione 


Esempio: 

FOR I : = TERMS DOWNTO 1 DO 
BEGIN 

SUM : = 1.0 + I * V/U 
U : = SUM 

END; 
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ISTRUZIONI DI TRASFERIMENTO DEL CONTROLLO 

Vi raccomandiamo di evitare le istruzioni GOTO tranne in quei rari casi in cui han¬ 
no effettivamente un solo valore. 


Dichiarazione di etichetta (label) 

Se in un programma Pascal vengon usate delle label, devono essere dichiarate e- 
splicitamente in precedenza, immediatamente dopo la sezione di dichiarazione delle 
costanti CONST. 

LABEL intero, intero, 

Esempio: 

LABEL 99; 

L’istruzione GOTO 
GOTO label 
Esempio: 

BEGIN («Procedure gaussj*) 

IF ERROR THEN GOTO 99; 


99: 

END («Procedure gaussj*); 

In questo esempio, l'istruzione GOTO causa la fine sistematica della procedura se 
ERROR è vera. L'istruzione alternativa, IF NOT ERROR THEN, sarebbe più compli¬ 
cata da gestire. L'uso dell'istruzione GOTO per uscire da una procedura è una tecni¬ 
ca di programmazione discutibile, anche se alcuni compilatori l’accettano. 


INGRESSO E USCITA 
Procedure di Ingresso 


READ (variabili); 
READLN (variabili); 
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READ (FILE_NAME), variabili); 

READLN (FILE_NAME, variabili); 

La variabile FILE_NAME deve essere esplicitamente dichiarata di tipo FILE, o 
deve essere passata come parametro nell’intestazione del programma. Notate che il 
tipo TEXT è equivalente a FILE OF CHAR. 

L’istruzione READ attribuisce i valori della linea corrente ("record”) alle sue va¬ 
riabili, mentre i valori restanti sono disponibili per una successiva istruzione di in¬ 
gresso. 

L’istruzione READLN assegna alle sue variabili i valori della linea corrente,-igno¬ 
rando quelli restanti. Una successiva istruzione di ingresso preleva i valori dall’inizio 
della linea seguente. 


Procedure di Uscita 

WRITE (espressioni); 

WRITELN (espressioni); 

WRITE (FILE_NAME, espressioni); 

WRITELN (FILE_NAME, espressioni); 

L’istruzione WRITE produce un’uscita sulla linea corrente ("record"). L’istruzione 
WRITELN produce un’uscita sulla linea corrente, e forza un “ritorno a capo” per ter¬ 
minare il record. 

Esempi: 

WRITE('X:’); 

READLN(X); 

WRITELN ('GAMMA È’, GAMMA (X)); 

Formato di un’uscita numerica 

Ogni espressione in un’istruzione WRITE o WRITELN può essere seguita da uno o 
due interi nel modo seguente: 

intero_espressione: intero 
reale_espressione: intero: intero 

In uscita viene fornito il valore dell’espressione. Il primo intero rappresenta l'am¬ 
piezza in caratteri del campo dell'uscita; il valore effettivo dell’uscita è posto sulla 
destra del campo, preceduto eventualmente da blank. In uscita compaiono sempre 
tutte le cifre del valore, anche se superano l'ampiezza del campo. 
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Nel caso di un numero reale, il secondo intero definisce il numero di cifre che si 
devono trovare a destra del punto decimale. 

Esempio: 

WRITELN(I:3, X[l]:8:1, Y[l]:9:2, Y_CALC[11:9:2); 


TIPI DI DATI 

La dichiarazione TYPE segue la CONST e precede la VAR. 


Tipo scalare 

TYPE TYPE_NAME = (identificatore, identificatore, ...); 


Esempio: 

TYPE 

DAY_OF_WEEK = (MONDAY, TUESDAY, WEDNESDAY, 
THURSDAY, FRIDAY, 

SATURDAY, SUNDAY); 


Tipo subrange 

TYPE 

TYPE_NAME = costante., costante; 

VAR 

VAR_NAMES: costante..costante; 
Esempio: 

TYPE 

INDEX = 1..MAX; • 

WEEK_DAY = (MONDAY..FRIDAY); 


Tipo matrice 

TYPE 

TYPE_NAME = ARRAY [tipo_indice, tipo_indice,...] 
OF tipo; 
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VAR 

VAR_NAMES : ARRAY [tipo_indice, tipo_indice,...] 

OF tipo; 

Una matrice multidimensionale richiede che sia specificato un tipo_indice per o- 
gni dimensione. Il tipo_indice è di solito un tipo subrange, ma può essere un tipo 
scalare. 


Esempi: 


TIPE 

ARYS = ARRAY [ 1 ..CMAXlOF REAL; 

ARY2S = ARRAYfl ..RMAX, 1..CMAX] OF REAL; 
(# Bidimensionale *) 

VAR 

W : ARRAYI1..MAXC, 1..MAXC) OF REAL; 

: (* MAXC PER MAXC *) 

INDEX : ARRAYH.. MAXC, 1..3) OF INTEGER; 
(MAXC PER 3) 


Riferimenti agli elementi di una matrice 

Gli indici di una matrice compaiono tra parentesi quadre. Nel caso di matrici mul- 
tidimensionali, le espressioni degli indici sono separate da virgole. Un indice può es¬ 
sere qualsiasi espressione il cui risultato sia conforme al tipo dichiarato. 

ARRAY_NAME [indice, indice,...] 

Esempio: 

C|I,J] ; = A[I,K] * B[K,J] 


Matrici “packed” 

In alcune implementazioni, la quantità di memoria occupata da una matrice può 
essere ridotta dichiarando la matrice PACKED. Lo spazio effettivamente risparmia¬ 
to, e il conseguente aumento del tempo di accesso dipendono daH’implementazione. 

TYPE 

TYPE_NAME = PACKED ARRAY [tipo_indice, tipo_indice...] 

OF tipo_elemento; 
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VAR 

VAR_NAME: PACKED ARRAY [tipo_indice, tipo_indice...| 
OF tipo_elemento; 


Esempio: 

TYPE 

LINE_IMAGE = PACKED ARRAY [1...MAXCOL] OF CHAR 


Tipi record 

TYPE 

TYPE_NAME = RECORD lista campi END; 
VAR 

VAR_NAME: RECORD lista campi END; 


Esempi: 

TYPE 

COMPLEX = RECORD RE, IM: REAL END; 

TYPE 

CUSTOMER = RECORD 

NAME,STREET: PACKED ARRAY[1..30] OF CHAR: 
CITY:PACKED ARRAY[1..20] OF CHAR: 
STATE:PACKED ARRAY(1..2] OF CHAR; 

ZIP:0..99999 
END(*record cliente*); 


I campi di record variabili possono cambiare da un record a un altro; le diverse 
strutture che si possono incontrare nella parte variabile del record sono specificate 
con una costruzione del tipo CASE, che deve seguire la dichiarazione dei campi fissi 
dei record. 

Esempio: 

TYPE 

DATE = RECORD 

MO: 1 ..12; 

YR:INTEGER 

END(*data*); 

GRADE = (FRESH, SOPH, JR, SEN); 
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STUDENT = RECORD 

NAME:PACKED ARRAY [1 ..20] OF CHAR; 
NUM: INTEGER; 

CASE GR:GRADE OF 

FRESH, SOPH: (MAJOR: BOOLEAN); 
JUN: (CREDITS: INTEGER); 

SEN: (GDATE: DATE) 

END(*studente*) 


Riferimenti a campi di record 

Un campo all’Interno di un record variabile è identificato dalla cosiddetta 
notazione "dot"; il nome del campo, che appare nella dichiarazione del tipo record, 
è congiunto, tramite un punto (dot), all’effettivo nome del record: 

RECORD_NAME.FIELD_NAME 

Esempi: 

VAR 

COED: STUDENT; («Vedi tipo STUDENT precedente*) 

COED.NAME : = 'JANE SMITH ’; 

COED.NUM : = 75210; 

COED.GR : = SEN; 

COED.GDATE.MO : = 6; 

COED.GDATE.YR : = 1981; 

Quando si deve accedere molte volte a dei campi di uno stesso record, si può u- 
sare l’istruzione WITH nel modo seguente: 

WITH RECORD_NAME DO istruzione 

Esempio: 

VAR 

CUR_ACCOUNT:CUSTOMER; (* Vedi tipo CUSTOMER precedente *) 

WITH CUR_ACCOUNT DO 

BEGIN 

READLN(NAME); 

READLN (STREET); 

READLN (CITY,STATE,ZI P) 

END; 
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La costruzione WITH rende il programma più chiaro da leggere e più facile da 
compilare. 


Tipi Insiemi 

TYPE 

TYPE_NAME = SET OF tipo_base; 

VAR 

VAR_NAME : SET OF tipo_base; 

Esempio: 

TYPE 

DAYS = (MO, TU, WE, TH, FR, SA, SU); 

WEEK = SET OF DAYS; 

VAR 

WORKDAY, HOLIDAY, WEEKDAY: WEEK; 

Operazioni su insiemi 

+ Unione 

* Intersezione 

— Differenza 
= Equivalenza 

< > Non equivalenza 

IN Appartenenza all'Insieme; è TRUE se l'operando scalare a sinistra è un 
elemento dell’insieme sulla destra. 

< = Inclusione; è TRUE se tutti gli elementi IN operando a sinistra sono 

anche IN quello di destra. 

> = Contenimento: è TRUE se tutti gli elementi IN operando a destra sono 
anche IN quello.a sinistra. 

Tipi File 

TYPE 

nome-file = FILE OF tipo; 

VAR 

lista-variabili: FILE OF tipo; 
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Esempio: 


VAR 

FILEA, FILEB, FILEC : FILE OF INTEGER; 

Le procedure standard di Ingresso/Uscita (Input/Output, I/O) sui file sono: 
RESET Apre un file per operazioni di lettura 

REWRITE Apre un file per operazioni di scrittura (tutti i dati scritti in prece¬ 
denza sul file sono persi). 

GET Trasferisce un elemento di un file nel buffer associato. 

PUT Trasferisce il contenuto di un buffer nel file corrispondente. 

EOF Funzione Booleana che è TRUE quando si è raggiunta la fine di 

un file. 

Tipi puntatori 


Un puntatore contiene l'indirizzo di una variabile dinamica, cioè di una variabile 
creata durante l’esecuzione di un programma con la procedura NEW. Queste varia¬ 
bili sono identificate indirettamente tramite dei puntatori. Un puntatore può essere i- 
nizializzato con il valore NIL, per indicare che non sta puntando nessuna variabile 
dinamica. 

TYPE 

nome_tipo - tipo; 

VAR 

nome_variabile = tipo; 

Esempio: (Lista concatenata) 

TYPE 

LINK = PART: (* LINK È UN PUNTATORE AD UNA VOCE DEL TIPO 
PART*) 

PART = RECORD 

NEXT:LINK;(«PUNTA AL PROSSIMO PART*) 

END (*PART RECORD*); 


360 



■ 


programmi di matematica e statistica 

Leggendo questo libro il lettore potrà formarsi quella logica di 
base indispensabile per la risoluzione di problemi di matemati¬ 
ca e statistica. 

Ad ogni programma viene preposta un'esposizione schemati¬ 
ca del metodo numerico e delle tecniche di programmazione 
utilizzate, il diagramma a blocchi relativo all'algoritmo, il li¬ 
stato (anch'esso ottenuto da calcolatore) in cui tra l’altro ven¬ 
gono specificati il tempo e la quantità di memoria impiegati. 
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INTRODUZIONE AL PASCAL 

Il volume, incentrato su numerosissimi esempi che verificano 
costantemente l'apprendimento del lettore, insegna a conosce¬ 
re. capire ed usare tutte le particolarità e i vantaggi di questo 
linguaggio. Nel corso della trattazione vengono ampiamente 
utilizzate le tecniche di programmazione strutturata, come 
pure tecniche particolari, quali il trattamento dei file, l’utilizza¬ 
zione della recursività e il trattamento grafico. 
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COMPUTER GRAFICA J 

Si può dire che la computer grafica si pone nel contesto più 
generale del trattamento dell'informazione, avendo individua- i 

to nell'immagine un contenuto informativo che è possibile 
elaborare. 

Quest'opera, con il suo rigore informativo e scientifico, si pone 
come fondamentale nel carente panorama italiano; inoltre le 
informazioni e gli spunti contenuti nel testo contribuiranno _ _ 
certamente alla divulgazione ed alla formazione di idee nuove " " 
e feconde. 
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APPLE II - Guida all'uso 





3e possedete un Apple e volete conoscerlo a ton¬ 
to. se volete comprarlo, o se semplicemente vole¬ 
te imparare la sua programmazione, troverete in 
questo libro, tutte le risposte, comprese alcune 
vere "primizie'' che vi occorrono per una perfetta 
operatività del sistema. Conoscerete i vari compo¬ 
nenti del sistema e come usarli al meglio. Verrete 
guidati alla programmazione in BASIC e a usare le 
caratteristiche grafiche e sonore del sistema. Im¬ 
parerete a memorizzare su disco sia programmi 
che archivi dati, come ad inserire un programma 
scritto in assembler in uno scritto in BASIC. 

E poi ancora, tutte le istruzioni e funzioni BASIC e 
ben 12 appendici veramente basilari. 
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Quando il computer paria il linguaggio delle immagini 


La computer grafica rappresenta un campo di 
applicazione dell'informatica relativamente 
nuovo, ma suscettibile di imprevedibili 
sviluppi. Questo volume, nato in 
collaborazione con alcune delle più 
specializzate istituzioni del settore, esamina 
tutte le possibilità di questa scienza nuova e 
affascinante: dall'animazione cinematografica 
e televisiva ai businnes graphics; dalla 
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progettazione in architettura a quella in 
elettronica e in meccanica; dalla mappazione 
alla manipolazione tridimensionale delle 
immagini... Realizzata in modo da permettere 
un rapido, ma esauriente approccio 
all'argomento, l’opera si rivolge a quanti 
(lettori-utenti) siano alla ricerca dei necessari 
chiarimenti per una corretta e proficua 
utilizzazione delle tecniche di Computer grafica. 
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È vero: piccolo è bello! 

Alla scoperta dello 
ZX SPECTRUM 


a cura di Rita Bonelli 

ZX Spectrum è l'ultimo nato della famiglia Sinclair. È un 
calcolatore a colori di piccole dimensioni, ma di 
grandissime possibilità. Imparare a usarlo bene può 
essere fonte di molte piacevoli scoperte. Questo libro vi 
aiuta a raggiungere lo scopo. In 35 brevi e facilissimi 
capitoli non solo imparerete tutto sulla programmazione 
in BASIC, ma arriverete anche a usare’efficientemente il 
registratore e a sfruttare al meglio le stampe. 

Soprattutto capirete la differenza tra il vostro Spectrum 
e gli altri computer. 
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PROGRAMMI 


E ZXBO CON NUOVA ROM + HARDWARE 


Per le sue qualità e il suo modestissimo prezzo lo ZX 81 della i 
Sinclair è il computer più venduto nel mondo. 

Oggi, sempre con una modestissima spesa, si può imparare a ; 

sfruttare questo eccezionale strumento al limite delle sue 

capacità. Basta scorrere questo libro per scoprire quante cose 

lo ZX 81 può fare con l'aggiunta di alcuni semplici ed 

economici componenti. Ad esempio, tramite un semplice 

circuito musicale può riprodurre 50 note su 4 ottave e, sempre 

grazie a una modifica hardware da poche migliaia di lire, lo / 

ZX 81 diventa anche l'unico computer in grado di conferire ^ 

effetti sonori ai giochi inseriti tra i suoi programmi. Ma non è 
tutto. Un'altra novità di quest'opera, preziosa anche per chi > 
possiede lo ZX 80 con ROM, è il regalo di alcune tastiere 
disegnate da sovrapporre a quella sensitiva dell'apparecchio, 
per ricavarne altre, speciali funzioni. 
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Una guida pratica, preziosa, aggiornata 
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LA SOPPRESSIONE 
DEI TRANSITORI DI TENSIONE 


Un libro che riassume i risultati delle pluriennali ricerche 
effettuate da una delle massime industrie mondiali sulle ) 
cause, gli effetti, la frequenza dei sovraccarichi di 
tensione derivanti dai disturbi atmosferici o da altri 
motivi. Un'opera eminentemente pratica che si propone 
di dare ai tecnici un contributo fattivo alla soluzione di 
questo annoso problema, anche attraverso l'indicazione 
della vasta gamma di dispositivi di protezione che la 
G.E. ha messo a punto sulla scorta dei suoi studi e 
delle esperienze. 
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L'obiettivo di questo libro ò duplice: aiutare il lettore a 
perfezionarsi nell'uso del Pascal, e insieme costruire una libreria 
di programmi per risolvere i problemi, che si incontrano più 
frequentemente nel campo scientifico e ingegneristico. 

Gli algoritmi matematici di ogni programma sono descritti 
sistematicamente prima di implementare il programma stesso. 
Per quasi tutti i programmi viene fornito un esempio dei risultati 
prodotti. Tutti i programmi in PASCAL sono stati sviluppati su un 
microcalcolatore Z-80 con sistema operativo CP/M. 

Talvolta vengono usate costruzioni comuni ad altri linguaggi 
evoluti (come il FORTRAN, il BASIC e TALGOL), al posto di quelle 
più eleganti del PASCAL: ad esempio, si usano preferibilmente le 
matrici al posto dei record. Perciò gli algoritmi presentati nel 
testo, possono essere facilmente convertiti in altri linguaggi. 
Per chi affronta il Pascal per la prima volta, c’è in appendice, un 
riepilogo della sintassi, delle funzioni standard e delle parole 
riservate di Pascal. 
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